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Preface 


This manual is one of a series designed to instruct and guide the programmer in the use of the SPERRY UNIVAC 
Operating System/3 (OS/3). This manual specifically describes the OS/3 COBOL basic compiler and its effective use. 
Its intended audience is the novice programmer with a basic knowledge of data processing, but with limited 
programming experience, and the programmer whose experience is limited to non-UNIVAC systems. 


Two other manuals also are available for instruction and guidance in the use of OS/3 COBOL; one is a fundamental 
manual, and the other is the extended compiler manual. The fundamental COBOL manual, UP-7503.1 (current 
version) is useful for reviewing the language in some depth; however, it does not present the COBOL implementation 
for OS/3. The extended COBOL supplementary reference manual, UP-8059 (current version) includes the same 


information as this manual, but incorporates enhancements to the basic compiler, such as sorting, additional verbs, 
and more options, for the basic compiler verbs to provide more efficient use of the COBOL language. 


This manual is divided into the following parts: 

@ 7 PART 1. COBOL LANGUAGE STRUCTURE 
Defines the rules, symbols, and minimum system configurations required to compile an OS/3 COBOL 
program. ALSO describes the character set, types of words, qualification, and subscripting and indexing and 
presents the layout of a coding form. 

i PART 2. DIVISIONS IN COBOL 
Discusses the four divisions of COBOL which are as follows: 
IDENTIFICATION — labels a program, providing entries of pertinent information regarding the author and 
installation of the program, when it was written and compiled, any security that might be involved, and its 


intended use. 


ENVIRONMENT — immediately follows the identification division entries and is coded to reflect specific user 
system configurations. 


DATA — Divided into three sections: 


File Section — describes the records to be processed and the physical structure of files on which these records 
reside. 


Working-Storage Section — describes areas for intermediate or temporary storage of data that does not belong 


to any file. 
& Linkage Section — describes data items that are passed by a calling program to a called program and are 
referred to by both the calling and the called program. 


PROCEDURE — specifies the instructions for the processor to use in solving the problem. 
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PART 3. COMPILER FEATURES AND CAPABILITIES 


Describes options that can be used with the basic COBOL compiler, in addition to furnishing pertinent 
information that may be helpful in preparing a problem program. 


COMPILER OPTIONS AND LIBRARY TECHNIQUES -— explains how to use specific COBOL options, such 
as generating certain listings in conjunction with compiling a problem program. The library techniques 
paragraphs describe SOURCE and COPY library input specifications. 


RERUN CLAUSE — provides a method of restarting the execution of a COBOL program at a checkpoint 
position, rather than at the beginning of the execution. 


USE OF ACCEPT AND DISPLAY STATEMENTS — the statements to use in retrieving or displaying 
low-volume data from or to system hardware. 


TABLE HANDLING — examines the methods of table definition and referencing available in OS/3 COBOL. 
For a complete discussion of table handling, see the fundamentals of COBOL—table handling manual, 
UP-7503.2 (current version). 


PROCESSING TECHNIQUES FOR DIRECT ACCESS DEVICES — explains the various access methods 
available on the OS/3 system and describes the COBOL statements needed to interface with them. 


ASCII PROCESSING — describes the option for using ASCil data and processing files encoded in ASCII 
(American Standard Code for Information Interchange). 
PART 4. DEBUGGING AIDS 


Illustrates the techniques of detecting, diagnosing, and correcting errors in the COBOL source program with 
the aid of the compiler. 


PART 5. SAMPLE PROGRAMS 


Some of the COBOL statements defined in this manual are collected and presented in example operating 
programs. 


PART 6. APPENDIXES 
Presents the following appendixes: 
A. CHARACTER SET — contains conversion tables for characters and the character collating sequence. 


B. RESERVED WORDS -— lists words that are part of the COBOL language structure but are not used as 
user-defined words. 


Cc. INTERMEDIATE RESULTS IN ARITHMETIC OPERATIONS — describes the internal work areas for 
certain arithmetic statements. 


D. COMPILER DIAGNOSTICS — lists the texts of the numbered diagnostic messages issued by the 
compiler, their severity codes, the probable reason for the error or condition detected by the compiler, 


the COBOL rules that apply, and the recovery actions taken by the compiler. Also listed are the system 
console messages that require programmer action. 


_E, COMPILER LISTINGS ~ describes the listings received through the use of the PARAM statements in 


the job control stream. 


F, CONVERSION MODE -— describes a facility allowing users of IBM/360 DOS COBOL level-D to transfer 
into OS/3 COBOL. 


& 
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eS G. JOB CONTROL STREAM REQUIREMENTS — lists and describes the keyword parameters of the 
procedure call statement used to generate job contro! statements needed for compilation. Examples of 
call statements and generated control streams are included. 


Other OS/3 publications, referenced in this manual, will be necessary or useful to the programmer working with the 
basic COBOL compiler: 


a Supervisor user guide, UP-8075 (current version) 


Provides information needed to access the communication region of the OS/3, through which one job step 
may communicate with a following job step. 


@ Job control user guide, UP-8065 (current version) 


Provides information on the format and usage of job control statements for accessing UPSI switches, allocating 
devices, and passing parameters to the object program. 


B Data management system user guide, UP-8068 (current version) 
Provides SPERRY UNIVAC OS/3 standard file label specifications. 
] Error messages programmer/operator reference manual, UP-8076 (current version) 


Lists and describes the system console messages issued during compilation by the compiler, emphasizing error 
conditions during execution, and relating to sort operations. 
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1. Introduction 


SYMBOLS, RULES, AND NOTATIONS USED IN THIS MANUAL 


The various language elements comprising a COBOL program must be written in formats that adhere to fixed and 
precise rules of presentation. Each format statement indicates the following information: 


order of presentation; 

words requisite to proper functioning of the statement; 
optional words included at the discretion of the user; 
information that must be supplied by the user; 

elements in the statement involving a choice by the user; and 


optional functions of the statement. 


In accordance with the foregoing, the following conventions are used in this manual: 


The order of presentation is indicated by the format statement itself. 
All COBOL reserved words appear in all capitals. They are also listed in Appendix B. 


Words in underlined capitals are key words, which must be present when the functions in which they appear 
are used. Those capitalized words not underlined are optional and may be included at the user’s discretion to 
improve readability; there is no compiler action. All completely capitalized words, whether underlined or not, 
are part of the COBOL language and must be spelled exactly as indicated. 


All lowercase words represent generic terms to be supplied by the user when the functions of which they are a 
part are used. 


Elements of a statement inyolving a choice, one of which must be chosen, are enclosed in braces { +: lf one of 
the choices within the braces has no key words, it is a default option; i.e., if none of the elements within the 
braces is specified, the action will be the same as if the default option had been specified. 


Optional functions, which may be included or omitted at the user’s discretion, are enclosed in brackets [{ ]. 
When two or more options are stacked within brackets, one or none of them may be specified. 
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a In some statements, certain portions may be used as many times as needed by the programmer. The ellipsis. . . 
indicates this repeatability. If there is a choice to be made from stacked options or if there is only a single 
possibility, brackets or braces are used as delimiters to indicate that portion of the statement which is 
repeatable. 





Program examples are shown in 14.2, 15.2, and 16.2. 


1.2. COBOL COMPILER 


The SPERRY UNIVAC Operating System/3 (OS/3) COBOL compiler conforms to the specifications of the 
American National Standards Institute entitled American National Standard COBOL, X3.23—1968. The modules 
and levels implemented are shown in Table 1—1; where OS/3 COBOL features are an extension to these 
requirements, an annotation is made in the text. 





Table 1—1. SPERRY UNIVAC OS/3 COBOL Module/Level Implementation 


Nucleus 










Sequential access 
Random access 


Segmentation 





Table handling 


Library 


The minimum system configuration required for this compiler includes: 
a 3 disc work areas and 1 system disc 

s 1 card reader or substitute device 

a 1 printer or substitute device 

a 32,768-byte main storage 


The compiler and all compiler-produced object programs normally operate on data represented in Extended Binary 
Coded Decimat Interchange Code (EBCDIC) under control of the OS/3. 





A COBOL source program can be entered in the compiler from the job stream file or from a disc library file. The 
compiler produces, as its final output, a relocatable object program on disc. This output module must be processed | 
by the linkage editor before being executed. 








e 
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2. General Specifications 


2.1. COBOL CHARACTER SET 


The SPERRY UNIVAC Operating System/3 (OS/3) COBOL character set is a 52-character subset of the OS/3 
character set, which contains 256 characters. 


The COBOL character set consists of the following characters: 


0,1,...,9 


A.B,...,.2 


Blank or space (written on coding form as Aor a blank space) 
Period 

Less than 

Left parenthesis 

Plus sign 

Currency sign 

Asterisk (if used in column 7, indicates that the entire source line is commentary) 
Right parenthesis 

Semicolon 

Minus sign or hyphen 

Comma 

Greater than 

Apostrophe (alternate character for quotation mark) 

Equal sign 

Quotation mark (see apostrophe) 


Slash 
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The collation sequence for these characters is given in Appendix A. @ 





The OS/3 COBOL character set may be used anywhere in a program; however, the additional characters, which 
together with the COBOL set make up the system set, may be used only in the following instances: 


a anywhere in the identification division except in the PROGRAM-ID paragraph; 

a in the NOTE statement of the procedure division; or 

a in nonnumeric literals. 

The apostrophe or the quotation mark may be embedded in a nonnumeric literal by invoking the appropriate LST 


PARAM option to specify one or the other as the delimiter. (See Section 7.) Only one of these parameters may be 
used in any given program. The use of either overrides the interchangeability of the apostrophe and quotation mark. 


The following paragraphs describe the general usage of the various OS/3 COBOL characters. 
2.1.1, Characters Used for Words 
A COBOL word is a sequence of not more than 30 of the following characters: 

0,1,...,9 

A,B,....2 


— (hyphen) 





A word may neither begin nor end with a hyphen, or contain a space. 


2.1.2. Characters Used for Punctuation 
COBOL punctuation characters are: 


Apostrophe (character used as delimiter for a nonnumeric literal and as an optional character for the 
quotation mark) 


( Left parenthesis 


) Right parenthesis 


Blank or space (written on coding form as Aor a blank space) 


Period 
Comma 
: Semicoton 


om 


Quotation mark (See apostrophe.) 
NOTE: 


The normal mode for the compiler is to equate the apostrophe and the quotation mark as meaning the same thing. 
To embed either character within a nonnumeric literal, the PARAM options described in 7.1 may be used. 





= The comma and semicolon, when used in the general format descriptions, are for readability only and are not 
required. When used, the comma and semicolon always must be followed by. a space. 
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@ 2.1.3. Characters Used in Relational Expressions 


The COBOL characters used to represent relational operators are: 


Equals 
> Greater than 


< Less than 


2.1.4. Characters Used in Editing 
The characters used in editing are: 

B Blank or space insertion 

0 Zero insertion 


+ Plus sign 


- Minus sign 
CR Credit 
DB Debit 


Zz Zero suppression 
Check protection 
$ Currency symbol 
Comma 


Decimal point 


2.2. TYPES OF WORDS 


Two types of words are used in OS/3 COBOL: user-supplied and reserved. The user-supplied words are listed and 
defined in Table 2—1. Reserved words are used for syntactical purposes and may not appear as user-defined words. 
The various types of reserved words are described in Table 2—2. Appendix B contains a complete list of OS/3 
COBOL reserved words. 
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Table 2—1, User-Supplied Words (Part 1 of 2) 





Data-name : Contains 1 through 30 characters 
Permissible characters are O through 9, A through Z, and hyphen (—). 
Must include at least one alphabetic character 
Hyphen (—) cannot be the first or last character. 
May be qualified; may not be subscripted 
Unqualified ; Rules 1 through 4 for data-name 
data-name 
May not be qualified; may not be subscripted 
Rules 1 through 4 for data-name 
May be qualified and/or subscripted 
Condition-name - Rules 1 through 4 for data-name 


Value may be established in a level-88 entry or in a SPECIAL-NAMES 
switch status declaration. 


Referenced only in conditions 


Conditional : Rules 1 through 4 for data-name 
variable 





Data-name immediately followed by one or more associated level-number 
88 entries 


Procedure-name . Rules 1, 2, and 4 for data-name 
: Must precede each referenced paragraph 
< A procedure-name is a section-name if it is followed by the word 
SECTION. 
External-name r A nonnumeric literal of 1 to 8 characters 
: A user-supplied label that duplicates the LFD name used in the job 
control stream to name a COBOL file 
Fite-name F Rules 1 through 4 for data-name 
. A word that names a file described in the data division 


Index-name ° Rules 1 through 4 for data-name 

: Value of index-name corresponds to an occurrence number for a table 
dimension. 

a initialized and modified only by the SET statement 

. Defined by the INDEXED BY clause 

Ls Table references using indexing are specified by the data-name of the 
table element followed by parentheses including an index-name for each 
table dimension. 

. Storage areas are assigned by compiler. 
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@ Table 2—1. User-Supplied Words (Part 2 of 2) 


User-Supplied Words 


index data-item ‘ Rules 1 through 3 for index-name 


Defined by USAGE IS INDEX clause 


Mey? be Bart of a group referred to in a MOVE or I-O statement 


Numeric literal ‘ A string of not more than 20 characters, including 0 through 9, sign 
(+ or —), and decimal point 


Must contain at least one and not more than 18 digits plus a sign and 
a decimal point 


May contain only one sign, which must be leftmost character; if 
unsigned, literal is positive. 


May contain only one decimal point, treated as an assumed decimal 
point; if no decimal! point, the literal is an integer 


Decimal point cannot be the last character in a numeric literal. 


When a literal is restricted to numeric, the only figurative constant 
permitted is ZERO. 


Nonnumeric literal ; A string of any characters of the OS/3 character set, excluding the 
quotation mark and the apostrophe (unless these have been embedded by 
use of the appropriate LST parameter (7.1)); reserved words may be used 

& Must contain at least one and not more than 132 characters 


Must be enclosed within quotation marks or apostrophes 


Any spaces enclosed in the quotation marks are part of the fiteral 
and, therefore, are part of the value. 


All nonnumeric literals are in the alphanumeric category. 


A figurative constant can be used whenever a nonnumeric literal appears 
in the format. 





Table 2—2, Reserved Words (Part 1 of 2) 


Denote actions performed by the object program or the COBOL compiler 


Key words 















A word which must be present in a particular clause 





Key words are indicated by underlining where they appear in the general 
formats. 


Optional words Used in COBOL to improve readability 





Presence or absence does not alter handling of statement during 
compilation or execution of program 






Not underlined when shown in generalized format 
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Table 2—2, Reserved Words (Part 2 of 2) 


TALLY is the name of a special register designated by the compiler 
whose implicit description is that of aCOMPUTATIONAL-S3 integer of five 
digits without an operational sign. 


TALLY holds the count produced by the EXAMINE statement. 


TALLY may also be used in the procedure division as a data-name 
whenever an elementary data item of integral value may appear. 


Figurative constants : ZERO, ZEROS, or ZEROES generates one or more O's. 
SPACE or SPACES generates one or more spaces. 
HIGH-VALUE or HIGH-VALUES generates one or more hexadecimal 
FF characters (all binary 1's); this character has the highest value in the 
OS/3 collating sequence. 
LOW-VALUE or LOW-VALUES generates one or more hexadecimal 00 


characters (all binary O's); this character has the lowest value in the 
OS/3 collating sequence. 


QUOTE or QUOTES generates one or more apostrophes (’), hexadecimal 7D; 
QUOTE(S) cannot be used in place of quotation marks ("’) or an apostrophe 
to bound a nonnumeric literal. 


The ALL literal generates one or more of the literals following the 
ALL; the literal must be either a nonnumeric literal or a figurative 
constant other than the word ALL; when a figurative constant is used, 
the word ALL is redundant and is used for readability only; the ALL 
literal may not be used with DISPLAY, EXAMINE, STOP, or COPY. 


The qualifier connectives OF and IN are used to associate a data-name 
or paragraph-name with its qualifier. 


A series connective is the comma, which links two or more consecutive 
Operands or statements; the use of a series connective is optional. 





2.3. QUALIFICATION 


Every name used in an OS/3 COBOL source program must be unique either because of different spetling or because 
of qualification. 


Definition: 
Qualification is a means of making a name within a hierarchy unique by appending a prepositional phrase 
containing the name of a higher fevel of the hierarchy. It is accomplished by appending one or more phrases 
composed of a qualifier preceded by IN or OF to a data-name or paragraph-name. IN and OF are logically 
equivalent. 


Rules: 


1. The name associated with the highest level entry in a hierarchy is the highest level qualifier available for 
a data-name within that hierarchy. 


2. Each qualifier must be of a successively higher level and within the same hierarchy as the name it 
qualifies. 
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The same name must not appear at two different levels in the same hierarchy. 


If a data-name or condition-name is assigned to more than one item, it must be qualified each time it is 
referenced. 


A data-name cannot be subscripted when it is being used as a qualifier. 
A paragraph-name must not be duplicated within a section. 


Only a section-name can qualify a paragraph-name; the word SECTION must not appear as part of this 
qualifier. 


A paragraph-name need not be qualified when referred to from within the same section. 
A name may be qualified even though it does not require qualification. 


FD names, level-77 names, level-66 names, level-01 names not in the file section, and section-names must 
be unique in themselves as they cannot be qualified. 


A data-name being qualified may be subscripted or indexed. The subscripts/indexes must appear to the 
right of the last qualifier name. 


Format 1: 


‘¢ sia ae [{ aEt datename2 | sibs (ewes [, sub-2 [, sub-3] | )| 


Format 2: 


[tary setenname] 
paragraph-name |<, —~ 7 section-name 


— 


wn 
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NOTE: 





Figure 2—1 illustrates examples of qualification entries. 
CONTINUATION 
SEQUENCE 
fhe FOLLOWING ENTRIES SHOW THE USE OF QUALIFICATION. 


LR es ie end Ve OT See ee ne aC DS PES a a Seer Ce ee TY OE aT CO Rr Vs We ee eT Cd To 














DATA DIV (IS, LON.. Fae Pe a REE er ed as VaR WL SR ee Sr VETO ioe ND ET Pe ine ee AT VO ee ee a | 




































111 | IWORKING- STORAGE SECTION. 
HOLD PIC iX.C10) VALVE SPACES. 

A sit i eo ppg ey pi pe gi a Py eg ie ei a 

; 03, CL Ly Pile, XO2,0)...)... 7. ah deca he ay pete Pic ek ea ee Peg 

03, WARD, PLc, X10)... fe Ais ae ae Se ed Np ta pS Pep dng 























| et a Oe Gee Oe ae Se nw ane —oe a | 4k. F vu ees Pat OY eee as Ke a i414 it sou tu 4 
: 





erenen 03 c CITY, Plc. X¥.¢.2,0,),. ig gfe pt i Se eet ee i ee i ae 
spt IS: 03 WARD, Pilc, XG10),, ORS eter SO Vee RO OES TWO CPS Vy COT a VE pe foi Gt pinta 


} t : : 
SS Cs CS CN OO ON CON SOR ORES SET SS Snes SOS CE so oe oe ae it a oe ie oe Soe Ces Ge Gee PSaRe ek eT aT ee a 




















RAS Nice i et ete ae a he eM Sie a ah a ee ng NO ste totes 
ARD,. DF PENNA AED: AGL oie i Sgr el a Pe a GY 








Ss VR per ae RO KE CR a ONY YN VY WE Oy HR Wes VR CT Se GON OO EA 


_No tle IF THE Ds TA NAMES, CITY, AND WARD ERE VNIQUE. THEN 





oa ad 5 QUA LB, LIF P14 TION 139, WNNECESIARY,». De ce om a Va oes a La CW OC Wa 
Aik a wii Reka i ae ee pot ee hed oe Ng ee gg 





Figure 2—1. Example of Qualification Entries 
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2.4. SUBSCRIPTING AND INDEXING 


Definition: 


Subscripting and indexing are techniques used to refer to individual table elements within a table of like 
elements that have not been assigned individual data-names. 


Rules: 
1. Up to three levels of subscripting or indexing are permitted. 
2.  Subscripted or indexed identifiers may not be used as qualifiers. 


3. When condition-names are assigned to items requiring subscripting or indexing, these condition-names 
must be subscripted or indexed when referenced. 


4. Relative indexing (index-name + integer) is permitted. The integer must not be zero. Zero is considered 
out of the scope of an OCCURS clause. 


5. When more than one subscript or index is used in a reference, each must be separated by a comma and a 
space. 


NOTE: 


Table handling is discussed in Section 10, For a complete discussion of table handling, see the fundamentals of 
COBOL — table handling manual, UP-7503.2 (current version). 


2.5. CODING FORM 


Figure 2—2 shows the layout of the COBOL programming form. On this form the programmer enters all information 
needed by the COBOL compiler, observing the rules of format and content defined in this manual. Each line of 
written information represents the information to be entered into one 80-column punched card. The divisions of the 
form are explained in Table 2-3. 


soit COBOL ” t 
PROGRAMMING FORM eeocram io. La. GS i! 
PROGRAM _ _ PROGRAMMER _. DATE Sagi ta cee. PAGE: 


CONTINUATION 
SEQUENCE 


1 NUMBER 










sae er en ee Cee 





wh. Le de ee 





Bak unde Tie A coated Se a ciech slam, Him atothia nisl 





iis SE pe is ste Aes ioe, fh 















a iy a ee ed Fae Une Gone Waar tener ne Cee 8 


Sos ae oe oe ree ones ne Sas nnn SO Sie Ue Cone ne aes One uel CN Cae SS Se Ue SOY Gy ues Ee ec Eons Cops EN Coo 











ie Rats a de dat edt da at pie hid fd iS eit py ile i ge Sie ES Pe 











ae Fe Ren YER Va rs Coe Oar ergs) WL Perrine ees Lan eae! GEER (OO eae Wes Re Cos ee Cee COs el Cae 









i } 


Figure 2—2, COBOL Programming Form 
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Table 2~3, Programming Form Column Usage 


em [een 


SEQUENCE NUMBER 


CONTINUATION 
- 


7 
: 


73—80 IDENTIFICATION 





























A numeric entry, used only by the programmer (not the COBOL 
processor) to establish a sequence among the various lines of 
coding (optional). 






A hyphen (-) is used when an entry extends past one 
noncomment tine. A break is used in the middle of a word, 
and the hyphen is written in column 7 of the next éontiguous 
line on which the word is completed. A word may be interrupted 
in any column, the rest of the line space filled, and the 

word completed on the next line. If the continued line 
contains a nonnumeric literal without a closing 

delimiter (apostrophe or quotation mark), the first 

nonblank character in Area B of the continuation line must be 
one of these delimiters and the continuation starts with the 
character immediately after the delimiter. 


An asterisk (*) in column 7 signifies a comment line which 

will be printed but ignored by the compiler. A comment 

may appear anywhere in the program except between a continuation 
set and can contain any printable combination of characters, 
including reserved words. If a comment entry extending past 

one line has a break occurring in the middle of a word, the 
continuation line must contain an asterisk in column 7. 

(The hyphen is only used for noncomment continuation 

lines.) This is an extension to American National Standard 

COBOL (1968). 





A slash {/) in column 7 signifies a comment tine that causes 

the compiler to direct the printer to skip to the head of the 
form and print the comment. If the comment line is continued, 
it must follow the rules for comment continuation, as explained 
in the preceding paragraph. 









Ail COBOL-formatted information, in the form of names, 
statements, information, instructions, etc., that is to be 
compiled into the object program. 

Note that two left-margin limits designated ‘‘A’”’ and “B”’ 
are shown. These are needed for program alignment. Major 
definitive names are begun at margin A (column 8). Margin 
B (column 12) is used for subordinate items and for 
continuation of entries from the last preceding line. 


Card deck information (optional) 
















PART 2. DIVISIONS IN COBOL 
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3. Identification Division 


3.1. GENERAL 


The identification division identifies or labels the source program and provides other pertinent information 
concerning the program. All information given in this division is listed by the printer during compilation; however, 
only the PROGRAM-ID paragraph will affect the object program in the SPERRY UNIVAC Operating System/3 
{(OS/3). 
Format: 

IDENTIFICATION DIVISION. 

PROGRA\N-ID. program-name. 
e [AUTHOR. [comment-entry.] ...] 

[INSTALLATION. ([comment-entry.] ...] 

‘[DATEWRITTEN. [comment-entry.] ...] 

[DATE-COMPILED. {comment-entry.] ...] 

[SECURITY. [comment-entry.] ...] 

[REMARKS. [comment-entry.] ...] 

Rules: 

1. The identification division must be present in all source programs. 

2. PROGRAM-ID always must be present as the first paragraph of the identification division. 
Program-name may consist of 1 to 30 alphabetic or numeric characters, the first character being 
alphabetic. The sequence formed by the first six characters must be unique (within user’s library) since it 
will identify the source program, object program elements, and associated documents. Hyphens within 


the first six characters are removed by the compiler due to OS/3 naming conventions. 


If the program name is not supplied or not accepted due to an error, the compiler automatically supplies 
the program name NOCOBNAM. 


@ 3. AUTHOR is for documentation only. 
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4. INSTALLATION is for documentation only. & 
5. DATE-WRITTEN is for documentation only. 


6. DATE-COMPILED is for documentation only. Date of compilation appears on listing regardless of 
whether this paragraph is present. Comment-entry is printed when this paragraph is present. 


7. SECURITY is for documentation only. 

8. REMARKS is for documentation only. 

9. A comment-entry can consist of any printable combination of characters, including reserved words. 
Example: 


An example of identification division entries is shown in Figure 3—1. 


CONTINUATION 


SEQUENCE 
NUMBER 


I 6 
IDENTIFICATION DIVISION. .. 


‘ 

Z. 

0.0,1,0,011 | 
Pp _ 


Q0,1,0,0, OiGRAM- LD, TESTO. ok 
001,003) AUTHOR. SYSTEMS, PUBLICAT.ILONS..  .. . 


f eae Cen es eee Coe eee oe Eee Meese 





A B TEXT eae pe shee e seutniaats > 
g 12 20 38 40 




























OOl1OOW [INS TALLATION.: DEPT. 6866... . 0... ..50.  .405 
001.005 IDATEI- RITTEN,-; OCT 12 19:73. a eee S 
201.006 DATE “COMPILED... DEC 12.1993. ..,.4. 0.44. 
001007) SECURITY... NONE... .., IS Sone irae eT, SM Aa, ieee 








001 008 ae i EMARKS... USER REPORT, # he Hiei stett esa Sle ie oh ade ake gle 
j 


Figure 3-1. Example of Identification Division Entries 
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4. Environment Division 


4.1. GENERAL 


The environment division specifies those elements of the COBOL program that depend upon the physical aspects of 
the SPERRY UNIVAC 90/30, 90/25, or 90/40 System. << 


Format: 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


UNIVAC-9030. 
SOURCE-COMPUTER. < UNIVAC-9025. 
UNIVAC-9040. 


eS UNIVAC-9030 
OBJECT-COMPUTER. <UNIVAC-9025 
UNIVAC-9040 eras 


CHARACTERS 
»MEMORY SIZE integer < MODULES 
WORDS 


{SPECIAL-NAMES. entry.] 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. {entry. } Wad 
{t-O-CONTROL. entry.] 


Rules: 
1. The environment division must be present in all source programs in the SPERRY UNIVAC Operating 
System/3 (OS/3). It may need to be rewritten when a program is to be compiled or executed on a 
different system configuration. 


2. Section and paragraph headers are required when their associated entries are present. 


3. Section and paragraph headers must begin in margin A (columns 8—11); their associated entries must 
begin in margin B (columns 12—71). 


4.2. CONFIGURATION SECTION 


& Definition: 


The. configuration section specifies the characteristics of the source and object processors and relates 
implementor-names to user-names. 
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Format: 





CONFIGURATION SECTION. 
SOURCE-COMPUTER. entry. 
OBJECT-COMPUTER. entry. 
[SPECIAL-NAMES. entry.] 
4.2.1. SOURCE-COMPUTER Paragraph 
Function: 


Names the processor that will compile the source program. 


Format: 
UNIVAC-9030. ! 


sounce comer | UNIVAC-9025. 
UNIVAC-9040. 


Rule: 


The SOURCE-COMPUTER paragraph is for documentation only and does not affect the object program. 


4.2.2. OBJECT-COMPUTER Paragraph 


Function: 





To specify the processor that will execute the object program and the size of main storage. 


Format: 


UNIVAC-9025 


OBJECT-COMPUTER. 
UNIVAC-9040 


UNIVAC-9030 


CHARACTERS 
MEMORY SIZE integer « MODULES 
WORDS 


Rule: 


MEMORY SIZE is an optional clause defining main storage as an integer number (no sign, comma, or decimal 
point permitted) of WORDS, CHARACTERS, or MODULES (for documentation only). The equivalent 
number of bytes for each is as follows: 


a CHARACTER = 1 byte 


a WORD = 4 bytes 


a MODULE = 16,384 bytes 
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4.2.3. SPECIAL-NAMES Paragraph 


Function: 


Relates implementor-names to user-supplied mnemonic-names 


Format: 


SPECIAL-NAMES. 

[CURRENCY SIGN IS literal] 

[; DECIMAL-POINT IS COMMA] 

[; SYSCOM IS mnemonic-name-1] 

[; SYSDATE IS mnemonic-name-2] 

[; SYSTIME IS mnemonic-name-3] 

[; SYSCONSOLE IS mnemonic-name-4] 
[; SYSCHAN-t IS mnemonic-name-5] . . . 


[; SYSLST IS mnemonic-name-6] 


> SYSERR [-m] 


ON STATUS IS condition-name-3[, OFF STATUS IS condition-name-4] 
OFF STATUS IS condition-name-4[, ON STATUS IS condition-name-3] 


; SYSSWCH [-n] 


IS mnemonic-name-7 [ON STATUS IS condition-name-5 [OFF STATUS IS condition-name-6} ] 
IS mnemonic-name-7 [OFF STATUS IS condition-name-6[ON STATUS IS condition-name-5] ] 


ON STATUS IS condition-name-5 [OFF STATUS IS condition-name-6] 
OFF STATUS IS condition-name-6[ON STATUS IS condition-name-5] 


[; SYSIN IS mnemonic-name-8] 
[; SYSIN-96 IS mnemonic-name-9] 
[; SYSIN-128 IS mnemonic-name-10] 


[; SYSLOG IS mnemonic-name-11] . 


where: 4 


t 

Is any digit 1 through 15. 
m 

Is any digit O through 31. 
n 


Is any digit O through 7. 
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A comma or semicolon may separate each entry, and a period must follow the last entry. 

The CURRENCY clause literal is used in the PICTURE clause to represent the currency symbol. 
Absence of this clause specifies that $ is the currency symbol. The literal must be a nonnumeric literal 
consisting of one character from the OS/3 COBOL character set and must not be one of the following 
characters: 

. Digits: 0 through 9 

a Alphabetic characters: A,B, C,D, P, R, S, V, X, Z, or space 


= ~— Special characters: *,+—.;() 


The DECIMAL-POINT IS COMMA clause causes the functions of the decimal point and the comma to 
be interchanged in PICTURE clause character strings and in numeric literals. 


Examples: 


SPECIAL-NAMES. CURRENCY SIGN IS ‘F’ DECIMAL-POINT 1S COMMA. 





Source PICTURE 
9(6) V99 
9(5) V99 

9(9)V9(4) 


Source Data 
00003232 
1234567 
0000098211289 






Receiving Field PICTURE 
FFFFFF,99 
F** HEE 99 
Z(3).ZZ9,9(4) 






Receiving Field Result 
AAAF 32,32 
F12.345,67 
AAY.821,1289 













SYSCOM permits accessing the communications region in the preamble of the job in which the object 
program is being executed via user-supplied mnemonic-name-1. See the supervisor user guide, UP-8075 
(current version) for an explanation of data. 


SYSDATE permits access to current date via the user-supplied mnemonic-name-2. Mnemonic-name-2 
may not appear in a DISPLAY statement. Date may be set or changed in the job control stream. 


SYSTIME permits access to time-of-day via a mnemonic-name-3. Mnemonic-name-3 may not appear in 
DISPLAY statement. 


SYSCONSOLE permits access to the system console (using ACCEPT or DISPLAY statement; see Section 
9) via mnemonic-name-4. 


SYSCHAN-t equates a particular channel (t) on the printer loop to mnemonic-name-5. 
Mnemonic-name-5 may appear only in a WRITE statement. SYSCHAN 1 and 7 are normally used for 
form overflow and top-of-page, respectively. 


SYSERRI-m] permits access to system error codes. The status of a particular error (m) or the presence 
of any error can be checked with the ON/OFF STATUS option. SYSERR[-m] is a feature of the 
compiler random access module. Condition-names in ON/OFF STATUS phrases are defined and equated 
with ON or OFF as required by the compiler and should not be defined elsewhere in the COBOL 
program. 


a eet eee: ae tn 
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& 10. SYSSWCH[-n] and its various options permit the programmer to access all or part of the user program 
switch indicator (UPSI) byte. The eight bits in the UPSI byte (bits O through 7) constitute a set of eight 


programmable software switches, SYSSWCH-0 through SYSSWCH-7. The status of these switches can be 
set to ON or OFF, altered, or interrogated as required. A switch containing a 1 bit is ON; a O bit is OFF. 
The following examples show the various ways of using SYSSWCH. 


a To set or change the contents of SYSSWCH, the DISPLAY verb may be used as follows: 


ENVIRONMENT DIVISION. 
SPECIAL-NAMES. 
SYSSWCH IS SWITCH 
SYSSWCH-3 IS SWITCH-3. 
PROCEDURE DIVISION. 
DISPLAY 00010001 UPON SWITCH SYSSWCH will now contain 00010001. 
DISPLAY 1 UPON SWITCH-3. SYSSWCH-3 will now contain 1; the other switches 
remain unchanged. 


DISPLAY identifier UPON SWITCH. ‘The eight switches in SYSSWCH (0 through 7) are set 


ON or OFF, depending on the contents of the 
8-character identifier. 


NOTE: 


Any character other than a hexadecimal FO will set a switch to ON. 


s An individual switch can be interrogated by using condition-name in the ON/OFF STATUS option. 
& For instance, in the following example control is transferred to procedure-name-1 if switch 5 
is ON. 


ENVIRONMENT DIVISION. 
SPECIAL-NAMES. 
SYSSWCH-5 ON STATUS IS FIVON, OFF STATUS IS FIVOFF. 


PROCEDURE DIVISION. 


IF FIVON GO TO procedure-name-1. 


In essence, SYSSWCH-5 is a conditional variable with the condition-names FIVON and FIVOFF, 
which are similar to level-88 entries. 


The condition-names FIVON and FIVOFF are defined and equated with ON and OFF, 
respectively, by the COBOL compiler and must not be defined elsewhere in the COBOL program. 
The compiler uses the hexadecimal characters FO and F1, respectively, to represent the OF F and 


& ON status of a switch. 
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The entire UPSI byte may be interrogated by use of the ACCEPT verb. This is shown in the 
following example where procedure-name-1 is performed if the SYSSWCH-2, SYSSWCH-4, and 
SYSSWCH-4 switches are ON and the others are OFF. 

ENVIRONMENT DIVISION. 

SPECIAL-NAMES. 

SYSSWCH IS mnemonic-name-1. 

DATA DIVISION. 

identifier PICTURE X(8). 

PROCEDURE DIVISION. 

ACCEPT identifier FROM mnemonic-name-1. 

IF identifier = 00101010 PERFORM procedure-name-1. 
Another way to interrogate switches is: 

SPECIAL-NAMES. 

SYSSWCH ON STATUS IS OK, OFF STATUS IS NIX. 


PROCEDURE DIVISION. 


IF OK GO TO procedure-name-1. 
In this example, if any switch is set to 1 the program will branch to procedure-name-1. 


The mnemonic-name option allows the user to equate his mnemonic-name with the 
implementor-name SYSSWCH [-n] . For instance: 


SPECIAL-NAMES. 

SYSSWCH IS MYSWITCH, ON STATUS IS MYSWITCHON. 

or 

SYSSWCH-4 IS TAKETAX, ON STATUS 1S LOFICA; OFF STATUS IS EQFICA. 


The mnemonic-name option is for use only with the ACCEPT or DISPLAY verbs. 
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eS a The UPSI switches also can be accessed by the following job control statements: 
- SET statement — used to set switches ON or OFF (1 or 0). 


- SKIP statement — used to conditionally bypass control statements. If the UPSI switch 
settings match the bit pattern specified in the SKIP statement, the specified number of 
statements will be skipped. 


The format and usage of these statements are shown in the job control user guide, UP-8065 
(current version). 


11. SYSLST permits access to the printer by way of mnemonic-name-7 for DISPLAY functions. 


12. SYSIN permits access to embedded data in the control stream when the embedded data is supplied on 
80-column cards. Access is made via mnemonic-name-8 and the ACCEPT statement. 


13. SYSIN-96 permits access to embedded data in the control stream when the embedded data is supplied 
on 96-column cards. Access is made via mnemonic-name-9 and the ACCEPT statement. 


14. SYSIN-128 permits access to embedded data in the control stream when the embedded data is supplied 
on an 8413 diskette. Access is made via mnemonic-name-10 and the ACCEPT statement. 


15. SYSLOG permits access to the system console and log file via mnemonic-name-11 and the DISPLAY 
statement. 


16. Table 4—1 shows how SPECIAL-NAMES are handled by the compiler. Note that if the PICTURE clause 
é is other than shown in the “Implied Description” column in the table, the rules for the MOVE statement 
determine the storing of the result. The effect is that of a MOVE in which the sending item is described 
as shown in the ‘Stored as” column and the receiving item description is that supplied by the user for 
identifier when accepting. The sending and receiving fields are reversed when displaying. 


NOTE: 


See Section 9 for further discussion of ACCEPT and DISPLAY statements. 
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Table 4—1. Rules for SPECIAL-NAMES 
Implied Description 
for ACCEPT or 


wtcuname | suman | omuewee | 
ACCEPT | DISPLAY DISPLAY @) 
SYSCOM 12 Yes Yes 12 EBCDIC PIC X(12) 
alphanumeric characters 
characters 
SYSDATE 6 numeric Yes yymmdd Pic 9(6) Current day 
characters 
SYSTIME 8 numeric Yes hhmmss00 PIC 9(8) Time of day 
characters 


SYSCONSOLE Variable-length Yes Yes For DISPLAY: PIC X(n) System console 
alphanumeric 55 characters per 
characters line, up to 250 
For ACCEPT: 
60 characters #max.} 


SYSCHAN- @ Not applicable Not applicable Not applicable To assign name to 
printer loop channel 


SYSSWCH 8 alphanumeric Yes Yes 8 EBCDIC PIC X(8) To call or change UPSI 
characters characters bits 
SYSSWCH-n 1 alphanumeric 1EBCDIC PIC X To change UPS) bits 
character character individually 
SYSLST Variable-length 120 characters/ PIC X(n) Printer with LFD name 
alphanumeric of SYSLST 
characters 
SYSIN Variabte-length 80 characters/ PIC X(n) 
alphanumeric 
characters 
ae i . 


SYSIN-128 





Explanation 












See the supervisor user 
guide, UP-8075 (current version). 














Refer to Section 11. 













Embedded control stream 
data cards (80-column) 


















Embedded control stream 
data cards (96-column) 


96 characters/ 









Variable-length 
alphanumeric 
characters 
























Variable-length 
alphanumeric 
characters 


SYSLOG Variable-length No Yes PIC X{n) 
alphanumeric 
characters 
: _ — a ae ~~ 


OFF status Not applicable Not applicable Not | Noranptcale | 


NOTES: 


128 characters 
on diskette 


PIC X(n) Embedded control stream 


data (8413 diskette) 

















System console and log 
file (no operator 
response) 





To interrogate user 
program switch indicators 
{UPS1) for ON or OFF 
condition 











@ Can be used only in conditional variable tests. 
@ Can be used only in ADVANCING clause of WRITE statement. 


@ _ See 4.2.3, rule 14. 
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Y 4.3. INPUT-OUTPUT SECTION 
Definition: 


This section of the environment division is used to specify the input/output media for the files used by the 
source program and to provide information needed for most efficient transmission of data between this media 
and the object program. 


Format: 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. (entry. } 


[1-O-CONTROL. entry.] 


4.3.1, FILE-CONTROL Paragraph 
Function: 


The FILE-CONTROL paragraph names each file, identifies the hardware medium containing it, permits 
specific hardware assignments for the program, and specifies alternate input/output areas. The clauses 
following SELECT and ASSIGN under FILE CONTROL may be specified in any order. 


Format: 


@ FILE-CONTROL. {SELECT [OPTIONAL] file-name 
ASSIGN TO [external-name] [integer-1] implementor-name-1 [OR implementor-name-2] 


REEL 
[ FOR MULTIPLE ‘ane tI 


: integer-2 AREA 
E RESERVE MD \ ALTERNATE | 


_ J ELLE-LIMIT IS data-name-1 THRU data-name-2 
" (FILE-LIMITS ARE literal -1 ——_ (literal-2 


data-name-3 data-name4 
[ : fries \ ee rae | 


EXTENDED 
; ACCESS MODE IS < RANDOM 


SEQUENTIAL 


[; PROCESSING MODE IS SEQUENTIAL] 


SEQUENTIAL 


| RELATIVE KEY IS data-name-6 
; SYMBOLIC KEY IS data-name-7] 
; RECORD KEY IS data-name-8] .} . 


INDEXED 
; ORGANIZATION IS RELATIVE 
ee ACTUAL KEY IS data-name-5 \ 


(; 
i 


Pe 
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The comma or semicolon may separate each clause, and a period must follow the entry. 
A SELECT clause must be specified for the following: 

a Every file that is the subject of an FD. 

a The external-name operand of a RERUN clause for which no FD is supplied. 


The keyword OPTIONAL, which may be applied to input files only, is required for files that are not 
necessarily present each time the object program is run. The status of the optional file at run time is 
determined by the job control stream. If the file is not present in the job stream, control takes the path 
specified by the AT END statement on the first READ statement. The keyword OPTIONAL can be 
applied to input files only, and these files must be sequential. 


The ASSIGN clause designates a particular hardware device, or class of devices, to which a specific file is 
assigned. External-name is a nonnumeric literal (1 to 8 characters) which is associated with a file. This is 
the name used in the job control stream to assign devices to the file (using the LFD job control 
statement). The external name must be unique within a job step. If external-name is omitted, the first 
eight characters of file-name are assumed for external-name. Integer-1 serves as documentation only, 
referring to the number of devices associated with the file. SPERRY UNIVAC OS/3 COBOL assigns the 
following implementor-names: 


Device Implementor-Name 


CARD-READER-51 
CARD-READER-66 


51-column card reader 
66-column card reader 
80-column or 96-column card reader or 


8413 diskette subsystem CARD-READER 


Card punch or 8413 diskette subsystem CARD-PUNCH 
Line printer PRINTER 
8411 disc subsystem DiSC-8411 
8414 disc subsystem DISC-8414 
8415 disc subsystem DISC-8415 
8416 disc subsystem DISC or DISC-8416 
8418 disc subsystem DISC-8418 
8430 disc subsystem DISC-8430 
8433 disc subsystem DISC-8433 
UNISERVO VI-C Magnetic Tape Subsystem TAPE-6 

All other tapes TAPE 


The implementor-name, DISC, specifies an assignment to the SPERRY UNIVAC 8416 Disc Subsystem. 
Because of track size differences, the user must ensure that the proper implementor-name is used when 
assigning discs. 


The implementor-name, CARD-READER, is used when reading 80-column or 96-column cards or when 
reading data from an 8413 diskette device. If the record size specified in the data division is greater than 
the physical record size of the medium, the remaining character positions in the record will contain 
spaces. 


The MULTIPLE clause, when present, specifies that the file exists on more than one volume. This clause 
is accepted for documentation purposes only, since the actual function is provided via the job control 
stream, which specifies the devices needed for the problem program. 


4—10 
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Number of Additional 
: 1/0 Areas Allocated Reserve 
Device if Clause Integer 
Not Specified Allowed 


CARD-READER 
CARD-PUNCH 
PRINTER 


TAPE 
- ORGANIZATION 
SEQUENTIAL 


(or omitted) 


ORGANIZATION 
INDEXED 


ORGANIZATION 
RELATIVE 





The RESERVE clause indicates the number of additional I/O areas desired. The keyword NO causes no 
additional 1/O areas to be reserved; integer-2 reserves one additional I/O area. tnteger-2 must be a 1; if 
not and the word NO is not specified, a warning diagnostic will be issued. Omission of this clause may 
result in the allocation of one additional 1/O area as indicated in the following chart: 


FILE-LIMIT clause serves as documentation only. 





ACCESS MODE specifies the manner in which the records of a file are read and/or written. Absence of 
this clause results in assumption of sequential access. 





PROCESSING MODE clause is for documentation only. Sequential processing is always assumed, 
regardless of the absence or presence of this clause. 


The ORGANIZATION clause designates the physical structure of the file. Sequential organization is 
assumed if the clause is omitted. This clause is an extension to American National Standard COBOL 
(1968). 


ACTUAL KEY IS data-name-5. (See RELATIVE KEY explanation.) 


For compatibility with SPERRY UNIVAC 9300 System COBOL, ACTUAL KEY may be specified in 
place of SYMBOLIC KEY when used with indexed file organizations. (Note that in this case the 
ORGANIZATION clause must appear first.) 


RELATIVE KEY IS data-name-6 is used with relative organization files to supply the physical position 
of a record with respect to the beginning of the file. Records in a relative organization file are addressed 
as relative record numbers 1, 2, 3, and so on. The ACTUAL KEY clause may be substituted for the 
RELATIVE KEY clause. Data-name-6 must be defined as an unsigned numeric integer according to the 
rules for numeric items. This clause is an extension to American National Standard COBOL (1968). 
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13. SYMBOLIC KEY !S data-name-7 is used for indexed file organizations to supply the record 
identification for random retrieval and sequential positioning. The information associated with the 
RECORD KEY clause must be identical with the information associated with the SYMBOLIC KEY 


clause. Data-name-7 must consist of 3 to 249 bytes. This clause is an extension to American National 
Standard COBOL (1968). 





14. RECORD KEY IS data-name-8 is used for indexed-organized files to supply the record identification 
field. Data-name-8 must consist of 3 to 249 bytes. This clause is an extension to American National 
Standard COBOL (1968). 


A detailed explanation of the various keys and types of file organization is given in Section 11. 


4.3.2. |-O-CONTROL Paragraph 
Function: 
Specifies the following: 
. Input/output techniques 
a Main storage area shared by various files 


a Location of each file on multiple-file-reel 





s Intervals at which rerun is to be established 
Format: 
1-O-CONTROL. 


[RERUN ON external-name EVERY integer-1 RECORDS OF file-name-1 [, file-name-2] ...] ... 


[ . same [RecorD | AREA FOR file-name-3 {, file-name-4 } see — 
tu 


{; MULTIPLE FILE TAPE CONTAINS file-name-5 [POSITION integer-2] 
[file-name-6 [POSITION integer-3]] ...] ... 


[; APPLY VERIFY ON file-name-8 [, filename-n] ...] ... 


file-name-9 [, file-name-10]. . . 
[ ; APPLY BLOCK-COUNT ON ate \] 


t[; APPLY MASTER-INDEX ON file-name-11 [, file-name-12] ...] ... 

[; APPLY CYLINDER-INDEX AREA OF integer-5 INDICES ON file-name-13 [, file-name-14] ...1]... 

[; APPLY CYLINDER-OVERFLOW AREA OF integer-6 PERCENT ON file-name-15 [, file-name-16] ...] ... 
t{; APPLY EXTENDED-INSERTION AREA ON file-name-17 [, file-name-18] ...] ... 

[; APPLY FILE-PREPARATION ON file-name-19 [, file-name-20] ...] ... 

{; APPLY ASCII 

















[ wi tHBUCEERMORESEE eas BLOCK-LENGTH-CHECK \] 


OF integer CHARACTERS 
ON file-name-21 [, file-name-22] ...] ... 





tAccepted for SPERRY UNIVAC Operating System/4 (OS/4) compatibility only. 
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1. A comma or semicolon may separate each entry, and a period must follow the last entry. 


2. The RERUN clause specifies that checkpoint records are to be written on the disc or tape unit specified 
by external-name. A checkpoint record is the recording of the status of the processor at a given point 
during the execution of the object program. All the information required to restart the program at that 
point is contained in the checkpoint record. These records are written whenever integer-1 records occur 
for file-name-1. File-name-1, file-name-2 ... can appear in only one RERUN statement; external-name 
can appear in any number of RERUN statements. The allowable range of integer-1 is 1 to 9,999,999. 


3. The SAME AREA clause specifies that two or more files are to use the same main storage area during 
processing. When the key word RECORD is omitted, the area being shared includes all storage areas 
assigned to the files; therefore, only one file may be open at a time. If RECORD is specified, any 
number of files may use the same storage area for processing the current logical record (the record 
formats of such files must not conflict). The SAME RECORD AREA clause should be used only when 
necessary because it reduces efficiency. 


4. The MULTIPLE FILE clause is for documentation only. This feature is supported by job control. 


5. The APPLY VERIFY clause requests verification (READ after WRITE) of disc records after they have 
been written. Absence of this clause results in no verification of records written. 


6. The APPLY BLOCK-COUNT causes a 3-byte block number to be inserted at the beginning of each block 
on tape for each file-name designated. If the TAPES option is specified, all tape files present are 
affected. This clause must be present for all input files which contain a block count. 


@ 7. The APPLY FILE-PREPARATION clause indicates that the tracks allocated to a relative organized file 
are to be recorded with initializing data prior to creation of a file. The track initialization occurs after an 
OPEN OUTPUT command is issued. 


8. The APPLY MASTER-INDEX clause is only accepted for OS/4 and OS/7 compatibility. In 0s/3, this 
clause serves for documentation only. 


9. The APPLY CYLINDER-INDEX integer-5 clause, used only with indexed files, indicates that sufficient 
main storage area is to be allocated to contain integer-5 top index entries. 


10. The APPLY CYLINDER-OVERFLOW integer-6 clause, used only with indexed-sequential files, indicates 
that integer-6 percent of each cylinder in the prime data area is to be reserved for the purpose of 
cylinder overflow. !f this clause is omitted, 20 percent of the cylinders specified are automatically 
allocated. If no overflow is desired, 0 percent should be specified. If no overflow exists, no new records 
can be inserted into the file. Integer-6 is an unsigned number. 


11. The APPLY EXTENDED-INSERTION clause is accepted for OS/4 and OS/7 compatibility. In OS/3, this 
clause serves for documentation only. : 


12. The use of the APPLY ASCII clause, which identifies each file that contains-or receives ASCII data, is 
explained in 12.5. 
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NOTE: aS 


APPLY clauses (rules 5 through 12) are extensions to American National Standard COBOL (1968). Further 
discussion of I-O-CONTROL is given in Section 11, 


An example of the envrionment division entries is shown in Figure 4—1. 


[CONTINUATION 


SEQUENCE 
NUMBER ' A Bo TEXT— : 7 es 
U 6{ 718 Wil2 20 30 40 


ENV:IIRONMENT DIVISTON. |. J. 
CONFIIGURATION SECTION. a 
0.0,1,0,1,2| |SDURICE-~COMPUTIER., UNIVAC)~9,0.30..0 00 0, 
001,013) OBJECT -COMPUTER., UNIVAC-9,030......,. 0... 
SPECITAL-NAMEY:. ; 


SYS. CONSOLE JS TYPELT, Sfdis ho cated 








Py Sane NaS ee) 




















00. 1015 _ ES pany f Snax: Banvat SN SE SRC ER: pO ee Rewer i ‘ 
00.1.9, 161 INPUT-OUTPUT, SECTION... ., } | 


fis ee oes Ogee seer: Wea CoML COND OMY ORLeny EPSP gD Eee en 





Pte eee ee eee 





COM ON Te PTE CONTA Cis Sie bat ci hep | 
0.1.01 8 iL SELECT INPUT ASSIGN TO TAPE-6.. 00 00. 
00101 9 _  |SELECT, LIST, ASSIGN TO PRINT.ER., 
0.01020] |) SELECT CDS ASSIGN TO CARD-READER... @& 
©0.1,0,2.1 ao sit sik ote Sete today, 
201.0221 | APPLY BLOCK COUNT, DN INPUT I. | 





4 bee ee ee coed Sel: aie Spe DO 











Figure 4-1. Example of Environment Division Entries 
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5. Data Division 


5.1. GENERAL 
Every data item referenced in the procedure division of a SPERRY UNIVAC Operating System/3 (OS/3) COBOL 
program must be described in the data division except for the special register TALLY, index-names, figurative 


constants, and literals. File structures are described by file description entries; data items and records are described 
by record description or single item entries as described in 5.3. 


Format: 


DATA DIVISION. 
FILE SECTION. 


WORKING-STORAGE SECTION. 


LINKAGE SECTION.* 


*Extension to American National Standard COBOL (1968). 
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Rules: 





1. The division header DATA DIVISION must be present in all COBOL programs. 

2. Sections are written in the order shown; if a section is not required, it may be omitted entirely. 

3. Data-names used in FD or 77 level entries must be unique because they cannot be qualified. The same is 
true for data-names used in 01 entries within the working-storage and linkage sections of the source 
program. 


5.1.1. Data Definition 


Table 5—1 shows the allowable sizes of data items in OS/3 COBOL. Data type is determined by the PICTURE and 
USAGE clauses. See 5.3.4 for legal PICTURE characters for each data type. 





Table 5—1, Main Storage Allocation 


Group (working- 65,535 65,535 
storage) 

Group (file or 

linkage section) 

Alphanumeric 


Alphanumeric 
edited 
ee ee 















= 
Decima! numeric 
display 
Numeric COMP or 18 (plus sign) 
Numeric COMP-3 


4092 

132 

132 
Not applicable Not applicable 
Not applicable Not applicable 


5.2. FILE SECTION 





The file section consists of: 
a File description (FD) entries describing the structure of all files and naming the data records contained in each. 


a Record description entries immediately follow each file description entry and describe in detail each record 


format used in the file. SS 
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e Format: 


FD fite-name-1 (file description clauses) 


{01 record-name-1 (record description clauses) } ... 


5.2.1. File Description 
Function: 

Provides information concerning the physical structure, labeling, and record names of a given file. 
Format: 

ED file-name 


CHARACTERS \] 


: BLOCK CONTAINS [integer-1 TO] integer-2 \aECORDS 


[; RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS] 


‘OMITTED 4 
RECORD IS =e 
; LABEL \eeconas ee | Sanat 
ST data-name-1 [, data-name-2] .. . 


; RECORDING MODE !S 


j<1c In19 


_ data-name-3 
unqualified-data-name IS Fee! \ | 





|: VALUE OF 


; RECORD !S 
[ DATA VnECoAnS Mie data-name-4 [, data-name-5] ‘a 


Rule: 





The various clauses may appear in any order after file-name. 


5.2.1.1. BLOCK CONTAINS Clause 
Function: 

Specifies the size of a physical record. 
Format: 


R 
BLOCK CONTAINS [integer-1 TO] integer-2 { CHARACTERS \ 


RECORDS 


Rules: 
& 1. Integer-1 and integer-2 must be unsigned integers other than 0. 


2. If the RECORDS option is specified and RECORDING MODE is F, this clause specifies the number of 
records per block. 
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If the RECORDS option is specified and RECORDING MODE is V or D, this clause specifies the 
number of the longest records per block. It is also possible for a block to contain a greater number of the 
shorter records, depending on the differences in record sizes. 


When CHARACTERS is specified, this clause specifies the number of characters (bytes) per block 
(physical record). 






Bytes per Field 
Organization: Sequential, Relative Organization: Indexed 


Block header (BLKHDR) i ae 2 
Record header (RECHDR) 
Indexed record pointer (LINK) 


For files not assigned to disc devices, this does not include the three bytes for the APPLY 
BLOCK-COUNT for tape, but does include the block header and record header bytes if recording 
mode is V. (The block header is four bytes per block, and the record header is four bytes per 
logical record.) 


For files assigned to the disc devices, this number includes all the control fields associated with the 
data portion of the disc block. This number does not include the key field and count field lengths 
associated with those fields of the disc block. 


Table 5—2 shows the size of the control fields associated with the block. 


Table 5—2, Control Field Sizes 









Recording Mode Recording Mode 







es a 
[ee 





The values are defined according to the recording mode and organization of the file. The 
Programmer must define the values for the logical record size and a blocking factor. The blocking 


factor (BLKFAC) equals the number of logical records per physical block. The logical record size 
(LOGRECSIZE) is also determined by the recording mode. 





If the recording mode is F, the logical record size is 01. If the recording mode is V, the size of the 
logical record is equal to the size of the largest logical record. 


Thus, the size of the physical block may be calculated according to the following formula: 


BLKHDR + (BLKFAC * (RECHDR + LOGRECSIZE + LINK)) 


This clause may be specified for CARD-READER and CARD-PUNCH files in order to provide greater 
Processing efficiency if the device is an 8413 diskette. In this case, the BLOCK clause does not specify 
the size of a physical block, but specifies the size of the buffer areas for multisector 1-O. 


a. 


!f the RECORDS option is used, the size of the buffer area may be calculated by using the 
following formula: 


BLKFAC*(RECHDR + LOGRECSIZE) 


The maximum buffer size is 1024 bytes; therefore, the blocking factor (BLKFAC) the programmer 
selects must be equal to or less than 1024 divided by (RECHDR + LOGRECSIZE). 
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b. If the CHARACTERS option is used and RECORDING MODE IS F, the BLOCK CLAUSE integer 
may be any multiple of (RECHDR + LOGRECSIZE) up to 1024. 


When CHARACTERS and RECORDS are both omitted, CHARACTERS is assumed. 


When this clause is omitted, it is assumed that records are recorded one per block and the record size is 


fixed. 


If both integer-1 and integer-2 are specified, integer-1 is treated as documentation only. Block size ranges 
are given in Table 5—3. 


Table 5—3. Black Size Ranges 








Bytes per Block 








































































































Hardware Device Organization: Sequential, Relative Organization: {ndexed, Direct (1) 
and 
Implementor Name Recording F & U ] Recording V Recording F & U Recording V 
+ 
Min Max Min Max Min Max Min Max 
CARD-READER 1 ® 9 ® = = — - 
1024 1024 
| Sule | comers 
CARD-READER-S1 1 51 - ~ - r - - ~- 
T = 
CARD-READER-466 1 66 = = - - - - 
4 i pees 7 
CARD-PUNCH 1 1024 ® 9 1024 ® = = a a 
ase pe ea 
PRINTER 1 @ 9 @ - - - = 
iz 
UNISERVO VI-C 
(TAPES) 13@]| 4.096 18] 4,096 
—+ 
UNISERVO VI1-C 
{TAPE} with 18 ® 4,092 13@ 4,092 
biock numbering 
{—______} ——— -—__— 
Other tapes 
(TAPE) © 13@ 32,767 13® 32,767 
Other tapes 
(TAPE) with 13@ 32,763 13@ 32,763 
block numbering) 
—t + 4 
8411 disc 
(DiSc-8411) | 1 3,625 9 3,625 
8414 disc 
(DISC-8414) 1 7,294 9 7,294 
t “Ft 
8415 disc 
(DiSC-8415) 1 10,240 9 10,240 
{__ 
8416 disc 
(DISC-8416 or DISC) 1 10,240 9 10,240 10 10,240 12 10,240 
8418 disc 
(DISC-8418) 1 10,240 9 10,240 10 10,240 12 
8430 disc [ 
(DISC-8430) 1 13,030 9 13,030 10 13,030 12 13,030 
8433 disc 
(DISC-8433} 1 13,030 9 13,030 10 13,030 12 13,030 
NOTES 


For 768 size = 132; for 770 size = 160; for 773 size = 144. 


For 768 size = 140; for 770 size = 168; for 773 size = 152. 


Minimum size is 20 if tape is RERUN receiver. 


Maximum size is 8192 if multiplexer channel is used. 


Note that the maximum physical block is 128 characters (8413 diskette), 96 characters (96-column card), or 80 
characters (80-column card). The larger block size is used to specify multisector |-O when the device is an 8413 
diskette. (See 5.2.1.1, Rule 4.) 
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5.2.1.2. RECORD CONTAINS Clause 





Function: 
Specifies the size of data records. 
Format: 
RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS 
Rules: 
1. Integer-3 and integer-4 must be unsigned integers other than 0; integer-4 must be greater than integer-3. 


2. The size of each data record is completely defined within the record description entry; therefore, this 
clause is optional. When present, however, the following notes apply: 


s If integer-4 is used alone, all the data records in the file must have the same size. In this case, 
integer-4 represents the exact number of characters in the data record. 


a If both integer-3 and integer-4 are shown, they refer to the minimum and maximum size data 
record. 


5.2.1.3. LABEL RECORDS Clause 


Function: 





Enables the compiler to cross-reference the description of a label record with its associated file. 





Format: 
OMITTED 
RECORD IS —_—— 
LABEL | Sa REE \ STANDARD 
RECORDS ane data-name-1 [, data-name-2] ... 
Rules: 


1. The OMITTED clause specifies that no standard labels exist for the file or the device to which the file is 
assigned. Any nonstandard labels must be described and processed as data records. 


2. The STANDARD clause specifies that standard file labels exist for the file or the device to which the file 
is assigned, and the labels conform to OS/3 label specifications. (Refer to the data management user 
guide, UP-8068 (current version).) Standard user labels may also be present, but the STANDARD clause 
specifies that they are not to be checked on input files, or written on output files. 


3.  Data-name-1 [,.data-name-2] ... specifies that standard labels are to be checked (or created), and that 
OS/3 standard user labels are present. User labels must conform, in content and format, to the OS/3 
standard user label specifications. 


The following rules apply when data-name-1 is specified: & 


s Data-name-1 [, data-name-2]... must have a record description subordinate to this file description. 
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a For input files, data management provides access to standard user label information in the area 
described by data-name-1. 


a For output files, the user moves user label information into the area described by data-name-1 for 
data managment to write to the output file. 


a User label records can be referenced only in USE procedures in the declaratives section (6.2). 


4, The label record specifications for the various device types are shown in Table 5—4. 


Table 5—4. Label Record Specifications 


Omitted Standard Data-name 
a 
femonesoee | ve fm [m_ 
a 


ORGANIZATION 
SEQUENTIAL 


ORGANIZATION 
RELATIVE 


ORGANIZATION 
INDEXED 





5.2.1.4. RECORDING MODE *Clause 
Function: 
Specifies the format of the logical record comprising the file. 


Format: 


RECORDING MODE IS 


I<IcIinIo 
a aie a 


Rules: 
1. The D mode may be specified for ASCI! tape files with variable-length records. 


2. The F mode (fixed-length format) is specified when all the logical records in the file are of the same 
‘length. 


3. The U mode (undefined format) states that the records of this file are not blocked and may vary in 
length (not available for disc files). 


4, The V mode (variable-length format) is specified when records within a file vary in length. 


5. The following chart describes the recording mode assumed when the clause is omitted. 


*Extension to American National Standard COBOL (1968). 





8057 Rev. 2 SPERRY UNIVAC Operating System/3 


UP-NUMBER 
Device F 
ormat 












ORGANIZATION 
SEQUENTIAL 








ORGANIZATION 
RELATIVE 








ORGANIZATION 
INDEXED 





5.2.1.5. VALUE OF Clause 


Function: 


UPDATE LEVEL 
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Describes a particular item in the standard file label record associated with a file; this clause serves as 


documentation only. 


Format: 


VALUE OF | unqualified-data-name IS Gate-name'd 
“ss literal-1 


5.2.1.6. DATA RECORDS Clause 
Function: 


Specifies the names of the logical records in a file. 


Format: 
RECORD IS 
ae, - - 5)... 
DATA | RECORDS Wee data-name-4 [, data-name-5] 
Rules: 
1. This clause is optional and serves as documentation only. 


2. Each data-name specified must appear at a 01 level number following the FD entry. 
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@ 5.3. DATA DESCRIPTION 


Function: 


Defines the characteristics of a particular data item. 


Format 1: 


level-number 


FILLER 
unqualified-data-name-1 


[; REDEFINES unqualified-data-name-2] 


OCCURS 


’ 


[INDEXED BY index-name-1 [, index-name-2] ... 


integer-2 TIMES | 
] 


_ she 
: PICTURE 1S character-string 


[ 
| USAGE 
i ysace 


COMP-3 

1S] COMPUTATIONAL-3 
DISPLAY 
INDEX 


[; MAP IS integer-3 CHARACTERS] 


SYNC 





eo : 
[ 


LEFT 
SYNCHRONIZED RIGHT 


_ {JUST 
‘ ) JUSTIFI 
A 


ED \ RIGHT | 


LUE IS literal] 


; BLANK WHEN ZERO] 





[SIGN IS] ‘ 


[SIGN IS] TRAILING 


Format 2: 


LEADING 


TRAILING \ SEPARATE CHARACTER 


88 condition-name; VALUE IS literal-1 





5.3.1. Level Number and Unqualified-data-name/FILLER Clause 


Function: 


Cc 
UPDATE LEVEL 
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The level number shows the hierarchy of data within a logical record. In addition, it is used to identify entries 
for condition-names and noncontiguous working-storage items. 


Format: 


level-number { 


FILLER 
unqualified-data-name 











- 
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Rules: 





4 A level number is required as the first element in each data description entry. 
2. Level-number 01 through 09 may be expressed without the leading 0’s. 
3. Level-number 01 identifies the first entry in each record description. 


4. Level numbers start at 01 for records, and become successively higher for subsets of records, such as 
group and elementary items. The maximum level-number permitted is 49, except for 77 or 88 levels. 


5. Level-number 77 is used in the working-storage section to describe noncontiguous data items and 
constants. 

6. Level-number 88 is assigned to entries which define condition-names associated with a conditional 
variable. 


7. FILLER may be used to name an elementary item in a record. Under no circumstances can a FILLER 
item be referred to directly. Also, FILLER must not be used with a fevel-number 88, but may be used to 
name the associated conditional variable. 


5.3.2. REDEFINES Clause 
Function: 


Allows the same area of computer main storage to be described by different data descriptions. 





Format: 

level-number unqualified-data-name-1 ; REDEFINES unqualified-data-name-2 
Rules: 

1. The REDEFINES clause must immediately follow unqualified-data-name-1. 


2. The level numbers of unqualified-data-name-1 and unqualified-data-name-2 must be identical, and may 
not be 88. 


3. The REDEFINES clause must not be applied to level 01 entries in the file or linkage sections, although 
this is permissible in the working-storage section. 


4. Redefinition begins at unqualified-data-name-2 and continues until a level number less than, or equal to, 
that of unqualified-data-name-2 is detected. A REDEFINES clause may be used within the range of 


another REDEFINES with a maximum of five levels permitted. 


5. When the level number being redefined is other than 01, unqualified-data-name-1 mut specify a storage 
area equal to the storage area for unqualified-data-name-2. 


6. Unqualified-data-name-2 must not contain, or be subordinate to, an OCCURS clause. 


7. Entries described under unqualified-data-name-1 must not contain VALUE clauses except in 
condition-name entries (level-number 88). 








8057 Rev. 2 SPERRY UNIVAC Operating System/3 5-11 


UP-NUMBER x UPDATE LEVEL PAGE 


8. Multiple redefinition of the same storage area is permitted. The entries giving the new descriptions of the 
storage area must follow the entries defining the area being redefined; no intervening entries defining 
new storage are permitted. Multiple redefinitions of the same storage area must use the data-name of the 
entry that originally defined the area. 


5.3.3. OCCURS Clause 
Function: 


Eliminates the need for separate entries for repeated data, and supplies information required for the 
application of subscripts or indexes. 


Format: 
OCCURS integer-2 TIMES [INDEXED BY index-name-1 [, index-name-2] .. . ] 
Rules: 


1. The OCCURS clause is used in defining tables and other homogeneous sets of repeated data items. 
Whenever the OCCURS clause is used, the data-name that is the subject of this entry must be either 
subscripted or indexed whenever it is referred to in a statement. Further, if the subject of this entry is 
the name of a group item, all data-names belonging to the group must be subscripted or indexed 
whenever they are used as operands. 


2. An INDEXED BY clause is required if the subject of this entry, or a group item within it, is to be 
referenced by indexing. Index-name is not defined elsewhere by the user, since its format is dependent 
on the hardware and storage is allocated by the compiler. 


3. The data description clauses associated with an item that includes an OCCURS clause apply to each 
repetition of the item described. 


4. |The OCCURS clause cannot be specified in a data description entry that contains a 01, a 77, or an 88 
level-number. 


i 


5. Three levels of subscripting and indexing are permitted. 


6. In the format, the value of integer represents the exact number of occurrences. The area allocated 
muliplied by the number of occurrences cannot exceed 65,535. 


7. The VALUE clause must not be stated in a data description entry containing an OCCURS clause or in 
any entry subordinate to an entry containing an OCCURS clause. This rule does not apply to 
condition-name entries. 
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5.3.4. PICTURE Clause 
Function: 
Describes the general characteristics and editing requirements of an elementary data item. 


Format: 


PIC : 
[: { PICTURE \ 1S choractr string | 


Rules: 
1. The PICTURE clause can be present only with an elementary item. 
2. The PICTURE character-string can consist of 1 to 30 characters. 
3. Five categories of data can be described with a PICTURE clause: 
a Alphabetic 
] Numeric 
s Alphanumeric 
a Alphanumeric edited 
] Numeric edited 
Table 5—5 lists the allowable picture symbols and the rules for their usage. 
4. Todefine an item as alphabetic: 
a Its picture character-string may consist of only the’symbol A. 


a its contents, when represented in standard data format, must be any combination of the 26 letters 
of the alphabet and the space. 


s Maximum number of character positions allowed is 4092. 
5. To define a fixed-point numeric item: 
t] The PICTURE character-string may consist of only the symbols 9, P, S, V, and H. 
7 The PICTURE character-string must contain at least one 9. 
a The maximum number of digits is 18. 
a The maximum number of occurrences of P in a picture-string is 17. 


a The contents, when represented in a standard data format, must be a combination of the numerals 
0 through 9. The item may include an operational sign. 
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& 6. To define an item as alphanumeric: 


a Its character-string is restricted to X‘s or at least two of the symbols A, X, and 9, and is treated as 
if the picture-string were X’s. 


5 Its contents, when represented in standard data format, are any combination of characters in the 
UNIVAC OS/3 system character set. 


a Maximum number of character positions allowed is 4092. 
7. To define an item as alphanumeric edited: 


a Its character-string is restricted to combinations of the symbols A, X, 9, B, and 0, and must 
contain: 


~- at least one B and one X; 
— at least one O and one X; 
_- at least one 0 and one A; or 
_ at least one A and one B. 


a Its contents, when represented in standard data format, are any combination of characters in the 
OS/3 system character set. 


& a The maximum number of character positions allowed is 132. 
8. To defined an item as numeric edited: 
td] Its character-string is restricted to certain combinations of the symbols: 
BPVZCRDBQ,.* + — 0 (zero) $ (currency sign) 


The allowable combinations are determined by the sequence in which the symbols appear, and by 
the editing rules. The number of digit positions must not exceed 18. 


a The maximum number of P'‘s permitted is 17. 


a Its contents, when represented in standard data format, must consist of only the numerals 0 
through 9, plus editing symbols indicated. 


a The maximum number of character positions allowed is 132. 
9. The following symbols may appear only once in a given picture-string: 
$V .CR DB 
10. An integer enclosed in parentheses following any of the symbols: 
A,X9PZ*BO+-—$ 
& indicates the number of consecutive occurrences of the symbol. 
11. See Table 5—6 for the order of precedence for characters used as symbols in a character-string. 


12. See Table 5—7 for examples of source fields and receiving fields. 
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Picture 
Symbol 


An alphabetic character or space X9BO 
An alphanumeric character AQ9BO 


(period) 


Table 5—5, PICTURE Symbols (Part 1 of 2) 


Represents 


An operational sign is associated 
with the data item 


Assumed decimal point in data 
item 


Assumed decimal point outside of 


data item; each P represents one 
character position 


Suppression of leading O’s 
(replaced by blanks or spaces) 


Check protection, replaces 
leading O’s with asterisks 


Insert comma in character 
position unless the preceding 
position is blank or 
asterisk-filled 


Actual decimal point to be 
inserted in character position 
unless following positions have 
been blanked 


insert a blank or space in 
character position unless 
preceding character position 
is asterisk-filled, 


insert the two characters CR 
if data item is of negative 
value: insert two blanks or 
spaces if value is positive 


Insert the two characters DB 
if data item is of negative 
value; insert two blanks if 
value is positive 
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Can Be Used in 
Combination With 


Any symbol except A 
and X; and is redundant 
with P 


Any symbol except A 
and X 


Any symbol except: * A 
X S H or more than 
one $ + or — 


Any symbol except: ZA 
X S H or more than one 
$—ort 


Any symbol except: A X 
SH 


Any symbol except: A X 
PVSH 


Any symbol except S and 
H 


Any symbol except: A X 
+—SDBH 


Any symbol except: A X 
+—SCRH 
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Special Picture 
Position 


any piles syne |Noe 


Can be preceded 
only by H; only one 
S is permitted 


Only one is permitted; 
can precede leading P 
or follow trailing P 


Must be first or last 
symbol or symbols of 
PICTURE except for 
SCR DB V or single 
+,— or $ but cannot be 
both first and last 


Can be preceded only by: 
V.,$+—PB0 (zero) 


Can be preceded only by: 
V.,$+—PB0 (zero) 


May not be last character 


Must be last symbol except 
for PorV 


Must be last symbol except 
for Por V 
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Picture 
Symbol 


$ 
(currency 
sign) 


i) 
(zero) 


*Extension to American National Standard COBOL (1968). 
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Table 5—5. PICTURE Symbols (Part 2 of 2) 


Represents 


Insert $ sign in character 
position; if more than one, 
indicates floating $ sign 


Insert 0 in character position 
unless preceding character is 
blank or asterisk-filled 


Insert + in character position 
if data item value positive 
and — if value negative; if 
more than one +, indicates 
floating sign 


Insert — in character position 
if data item value negative 
and blank if positive; if more 
than one —, indicates floating 
sign 


Can Be Used in 
Combination With 


Any symbol except: one $ 
cannot be used with: A 
XS H; more than one $ 
cannot be used with: S 

H A X * Z or more than 
one + — 


Any symbol except S and H 


Any symbol except: one 
+ cannot be used with: 
AX —SCR DBH; more 
than one consecutive + 
cannot be used with A 
X—SCR DB ZH * or 
more than one $ sign 


Any symbol except: one 
— cannot be used with: 
AX+SCR DB H: more 
than one consecutive — 
cannot be used with: A 
X+SCRDB*ZHor 
more than one $ sign 
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Special Picture 
Position 


Must be first symbols when 
more than one except for 
single + or — P B O (zero). 
If only one used, it can 
only be preceded by + — or 
PorV 


If only one + is used, it 
must be either first or last 
{except for P and V, and 
excepting its use with E 
where it may be first and 
also immediately follow the 
E); if more than one is used, 
it must be the first symbol 
except for the $ sign 


If only one — is used, it 
must be either first or last 
{except for P and V, and 
excepting its use with E 
where it may be first and 
also immediately follow the 
E); if more than one is used, 
it must be the first symbol 
except for the $ sign 
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Table 5—6. Precedence Rules in PICTURES @ 


j+ Uf fort fzt [izt { 
vlierheg 9 


)~ s] (08 17 5 
x |x |x] xi] x x 
x |x |x |x] x x 
Px[ [xl ial 






































Other Symbols 





































































































x x 
x ll 
x 
c 
2 
8 
= 
1 
% a 
| cm 
= fede Dede elec 
1 
NOTES: 
1. This chart shows the order of precedence when using characters as symbols in a character-string. An X at an intersection 


indicates that the symbols at the top of the column may precede, in a given character-string, the symbols at the left of the 
row. Arguments appearing in braces indicate that the symbols are mutually exclusive. The currency symbol is indicated by the 


symbol cs. 
2. At least one of the symbols A X Z 9 * or at least two of the symbols + — or cs must be present in a picture-string. 
3. P, fixed insertion +, and — appear twice. The first occurrence represents their use to the left of the numeric character positions 


and the second their use to the right of the numeric character positions. 


4. Z, *, nonfixed insertion cs, + and — appear twice. The first occurrence represents the use before the decimal point position, 
the second the use after the decimal point position. 
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: Table 5—7. Source and Receiving Fields 


Source Field ; Receiving Field 
PICTURE Data To Be Moved PICTURE Data After Move 


9(5)V99 1234500 2Z,2ZZZ.99 12,345.00 


















9{5) 





00123 






22,222.99 123.00 











9(4)V99 123456 $$,$$$.99 $1,234.56 














9(4) 0012 $$,$$$.99 $12.00 











$9{4) +1234 $$,$$$.99DB $1,234.00 














$9(4) —1234 $$,$$$.99DB $1,234.00DB 















$9(4)V99 +001209 $$,$$$.99CR $12.09 








s9999V99 —000123 $1.23CR 






$$,$$$.99CR 




































































$9(4) +1234 ++,44++.99 +1,234.00 
$9(4) —0010 ss HH . —10.00 
$999V99 001234 $**** 99 $**12.34 
9999 1234 990099 120034 
9(5) 12345 9B9B9B99 14243 M45 
X(5) A1B2C XBXOOXXX AA10082C 
A(s) ABCDE ABBOAAAOBX | AMoscpd0 AE 
9(4) 1234 9(5) 01234 
9(5) 12345 999.99 345.00 
9Vv9(5) 123456 9(5).99 00001.23 
AA AB A(5) ABA 
A(5) AA AB 

















Q9OPPP 9(5) 12000 





VPPP99 .9{5) .00012 








vg9(5) Z(5).99 AW\\.12 








00000. 123 





9(5).999 





vais) 
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5.3.5. USAGE Clause 





Function: 


Specifies the format of a data item in main storage. 


Format: 
COMP-3* 
>_> [USAGE IS] COMPUTATIONAL-3* 
DISPLAY 
INDEX 
Rules: 
1. The USAGE clause can be written at any level. At a group level, it applies to each elementary item in 


that group. The USAGE clause of an elementary item cannot contradict the USAGE clause stated for 
the group to which the item belongs. The USAGE clause of an elementary item cannot contradict the 
PICTURE clause for that item. 


2. The USAGE IS DISPLAY option specifies that the item is stored in character form, one character per 
byte; it is used for alphabetic, alphanumeric, alphanumeric edited, numeric edited, and decimal numeric 
display. 


The compiler performs the necessary conversions when decimal numeric display items are used for 
computations. 





3. An elementary item described with the USAGE IS INDEX clause is called an index data item and 
contains a value corresponding to the occurrence number of a table element. PICTURE clause must not 
be present in this instance. 


4. An index data item can be referred to directly only in a SET statement or in a relation condition. Also, 
an index data item can be part of a group which is referred to in a MOVE or an input-output statement, 


in which case no conversion will take place. 


5. Except for the level number and data-name necessary for definition, no additional clauses are used to 
describe index data items. 


—>> 6. COMP-3 specifies packed decimal format; if the number of digits in the item is odd, the object program 
main storage area allocated for this item is an even number of half bytes. 


Example: 
PIC 999 VALUE 123 USAGE COMP-3. 
Main Storage: 


1;2 ,3].F 
BYTE 1 IBYTE 2 


. 


If the number of digits in an item is even, an extra half byte is in the object program main storage 
allocated for this item. The item’s PICTURE is unchanged. & 


*Extension to American National Standard COBOL (1968). 
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@ Example: 


PIC S99 VALUE 12 USAGE COMP-3. 


Main Storage: 


0 1 2|C 
BYTE 1] BYTE 2 


The compiler ensures that the unused half byte is always set to 0 when information is stored in this item, The 


compiler assumes that when the item is referenced it contains a valid packed decimal number, with 0 in the 
leftmost half byte. 


7. If the USAGE clause is omitted, DISPLAY is assumed unless the PICTURE clause contains an H in its 
character-string. 


5.3.6. SYNCHRONIZED Clause 
Function: 


Specifies positioning of data items within a processor word or words. 


Format: 
@ SYNC LEFT 
SYNCHRONIZED RIGHT 
Rules: 


1. The SYNCHRONIZED clause does not affect the object program in OS/3 Basic COBOL; however, it is 
acceptable to the compiler for compatibility purposes. 


2. The LEFT and RIGHT optional keywords are included in the format for compatibility only. 


5.3.7. JUSTIFIED Clauses 
Function: 
Specifies nonstandard positioning of data within a receiving data item. 


Format: 


JUST 
[: { JUSTIFIED \ RIGHT | 
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The JUSTIFIED clause may be specified only at the elementary item level. 


This clause may not be used for numeric or numeric-edited data, because numeric data is aligned by its 
decimal point, when present, or right-justified when not present. 


Alphabetic, alphanumeric, and alphanumeric-edited data is left-justified with space fill when the 
JUSTIFIED clause is not specified. 


When the receiving data item is described with the JUSTIFIED clause and the sending data item is larger, 
the leftmost characters are truncated. When the receiving data item is justified and larger than the 
sending data item, the data is aligned at the rightmost character position in the data item with space fill. 


5.3.8. VALUE Clause 


Function: 


Defines the initial value of a working-storage item, or specifies the value associated with a condition-name. 


Format: 


VALUE IS literal 


Rules: 





This clause specifies the initial value of a data item in the working-storage section. & 


a The VALUE IS specifies the item to assume the specified value at the start of the object program. 
If the VALUE clause is not used in an item description, the initial value may be unpredictable. 


a The VALUE clause must not conflict with other clauses in the data description of the item or in 
the data description within the hierarchy of the item. 


a In the file section and the linkage section, the VALUE clause must not be used except for 
condition-name entries. 


a The VALUE clause cannot be used in a record description entry containing a REDEFINES clause 
or in an entry subordinate to an entry containing a REDEFINES clause. 


s The VALUE clause must not be stated in a record description entry containing an OCCURS clause 
or in an entry subordinate to an entry containing an OCCURS clause except for condition-names 
entries. 


a The VALUE clause must not be specified for a group item containing items with descriptions 
including JUST, SYNC, any COMP usage, or USAGE INDEX. 


a If the VALUE clause is used in an entry at the group level, literal must be a figurative constant or a 
nonnumeric literal, and the group area is initialized without consideration for the individual 
elementary or group items contained within this group. The VALUE clause must not be stated at 
the subordinate levels within the group. 
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@ 2. In the file section, only the VALUE clauses stated for condition-name entries are valid. 
3. A figurative constant may be substituted in the format when a literal is specified. 


4. During compilation, a diagnostic is issued when the VALUE and PICTURE clauses conflict in any 
manner. Compilation continues with the VALUE clause ignored. 


5.3.9. BLANK WHEN ZERO Clause 
Function: 
Sets the value of a receiving item to space when the value of the sending item is 0. 
Format: 
BLANK WHEN ZERO 
Rules: 
1. This clause can be specified only at the elementary item level, and can be used only with a numeric or 
numeric-edited item. When used with a numeric item, the category of the item is considered 


numeric-edited. 


2. The effect is not necessarily the same as zero suppression editing via the PICTURE clause, because the 
item is affected only when its numeric value is 0. 


5.3.10. MAP* Clause 
Function: 
Specifies the size of a data item in bytes in main storage. 
Format: 
MAP IS integer-3 CHARACTERS 
Rule: 
The MAP clause does not affect the object program in OS/3 COBOL; however, it is acceptable to the compiler 
for compatibility purposes. 
5.3.11. Condition-name Clause 
Function: 
Assigns a name for a specific value or range of values. 


Format: 


88 condition-name; VALUE IS literal-1 


*Extension to American National Standard COBOL (1968). 
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Rules: 





1. The VALUE clause is used as described in 5.3.8. 
2. Each condition-name requires a separate entry with a separate level-number 88. 


3. The condition-name entries for a particular conditional-variable must immediately follow the entry 
describing the conditional-variable item with which the condition-name is associated. 


4. A condition-name may be associated with any group or elementary item except an index data item. 
5. Examples of use of condition-name: 
a Elementary item: 


02 data-name-1. 
03 data-name-2 PIC XX. 
88 condition-name VALUE ‘AB’. 
02 data-name-3 
PROCEDURE DIVISION. 
{F condition-name GO TO procedure-name. 
Instead of: 
IF data-name-2 = ‘AB’ GO TO procedure-name. 


a Group Item: 


02 data-name-1. 
88 condition-name VALUE IS ‘20’. 
03 data-name-2 PIC 9. 
03 data-name-3 PIC 9. 
02 data-name-4. 
PROCEDURE DIVISION. 
IF condition-name GO TO procedure-name. 
Instead of: 
IF data-name-1 = ‘20’ GO TO procedure-name. 





5.3.12. SIGN* Clause 


Function: 


Specifies the position and the mode of representation of the optional sign when it is necessary to describe 
these properties explicity. 


Format 1: 
LEADING 
[SIGN IS] ‘ TRAILING \ SEPARATE CHARACTER 
Format 2: 


[SIGN IS] TRAILING 
















8057 Rev. 2 
UP-NUMBER 






SPERRY UNIVAC Operating System/3 5-23 






UPDATE LEVEL 








& Rules: 


1. The SIGN clause may be specified only for a numeric data description entry whose picture contains the 
character S, or a group item containing at least one such numeric data description entry. 


2. The numeric data description entries to which the SIGN clause applies must be described, either 
explicitly or implicitly, as USAGE IS DISPLAY. 


3. At most, one SIGN clause may apply to any given numeric data description entry. 


4. If format 1 is used, the character S in the picture is counted in determining the size of the item. The 
operational signs for positive and negative are the characters + and —, respectively. 


5. If the optional SEPARATE CHARACTER clause is not present, the character S in the picture is not 
counted in determining the size of the item. Format 2 specifies that the operational sign is in the zone 


portion of the least significant digit position of the item. A positive sign is represented by a hexadecimal 
C, a negative sign by a hexadecimal D. 


6. A numeric data item whose picture contains the character S, but to which no optional SIGN clause 


applies, has an operational sign in the zone portion of the least significant digit position. The sign 
representation is as described for format 2 of the SIGN clause. 


5.4. WORKING-STORAGE SECTION 
Definition: 


€ That section of the data division used to describe areas of main storage that are to contain intermediate results 
of processing and other temporarily stored data at object program run time, as well as named constants. 


Format: 
WORKING-STORAGE SECTION. 


77-level-description-entry 
record-description-entry ea 


{88 (condition-name-entry) ] 


5.4.1. Independent Entries 


Function: 


Describe noncontiguous single items in working-storage, each of which is neither subdivided nor a subdivision 
of another data-name. 


Format: 


PIC 


77 unqualified-data-name; { PICTURE 


\ IS picture-string[optional clauses] 
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1. Level-numer 77 is assigned only to single-item areas. 
2. Each independent entry must have a unique data-name. 
3. All level-number 77 entries should be grouped together in the beginning of the working-storage section. 


4. The VALUE clause may be used to specify the initial or constant value of any level-number 77 entry. 


5.4.2. Record Description Entry 
Function: 

Describes contiguous data areas which are not part of a file. 
Format: 


01 record-name 
(subordinate data items and clauses) 


Rules: 
1. Data elements in working-storage bearing a definite relationship to each other may be grouped into 


records through the same descriptive clauses used in data-description entries in the file section, including 
the OCCURS and REDEFINES clauses. & 





2. Each record-name must be unique because it cannot be qualified by a file-name or section-name. 
Subordinate data-names need not be unique if they can be qualified. 


5.5. LINKAGE SECTION* 
Definition: 


That section of the data division used to describe data available in a calling program, but referenced in both 
the calling and the called programs. 


Rules: 
1. Organization and structure follow the rules described under the working-storage section, with one 
exception: the VALUE clause may not be specified for other than level-number 88 entries. 
2. Record description entries in the linkage section provide names and descriptions, but storage within the 


program is not reserved because the data exists elsewhere. 


3. The linkage section is required in any program containing an ENTRY statement with a USING option or 
the procedure division USING option for a called program. 


4. See 6.8 for examples of calling and called programs. 





*Extension to American National Standard COBOL (1968). 
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6. Procedure Division 


6.1. GENERAL 


The procedure division in the SPERRY UNIVAC Operating System/3 (OS/3) COBOL program contains the 
instructions or steps necessary to solve a given problem. 


Format: 
PROCEDURE DIVISION [USING unqualified-data-name-1 [, unqualified-data-name-2] ...] . 


[DECLARATIVES. 
{section-name SECTION, declarative-sentence. 


@ {paragraph-name. {sentence} .. fs oe 


END DECLARATIVES.] 
{ [section-name SECTION [priority-number] .] 


{paragraph-name. {sentence}...}...}... 


6.1.1. USING* Statement 


Function: 


When the USING statement immediately follows the heading PROCEDURE DIVISION, it serves as an entry 
point declaration and can appear only if this program is a called subprogram. 


Format: 


USING unqualified-data-name-1 [, unqualified-data-name-2] ... 


Rules: 
1. If the USING option is present, the external symbol (ENTRY name) associated with this entry point is 
the same as PROGRAN-ID. 
2. If the USING option is not present, the beginning of the procedure division is not one of the entry 
points in this particular subprogram. 
@ 3. Data-names present refer to data items described in this subprogram. Their level numbers are restricted 
to 01 or 77, and they must be defined in the linkage section. 


*Extension to American National Standard COBOL (1968). 
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6.2. DECLARATIVES SECTION 





Function: 


The declaratives section of the procedure division contains compiler-directing statements that specify the 
circumstances under which a procedure is to be executed. 


Format: 


DECLARATIVES. 
{ section-name SECTION. declarative-sentence. 


{ paragraph-name. { sentence }...}...}... 
END DECLARATIVES. 


Rules: 
1. DECLARATIVES sections are grouped at the beginning of the procedure division. 
2. The keyword DECLARATIVES must immediately follow the division header PROCEDURE DIVISION 
on a separate line. The keywords END DECLARATIVES must follow the last line of the declaratives on 


a separate line. 


3. Each DECLARATIVES section must begin with a section-name, followed by a USE statement. The 
remainder of the section consists of one or more procedural paragraphs. 


4. No priority number is allowed on section-names in the DECLARATIVES section. 





5, See 6.6.7.4, USE statement. 


6.3. SECTION 
Definition: 

The most inclusive procedural unit in the procedure division to which a procedure name can be assigned. 
Format: 


[ section-name SECTION [priority-number] J 


{ paragraph-name. {sentence } oe y s 
Rules: 


1. The procedure division must be divided into sections with appropriate priority numbers when the 
program is to be segmented or when the declarative section is present. 


2. Priority-number must be an unsigned integer ranging in value from 0 through 99. 


3. Section priority-numbers must be in ascending sequence, and sections with the same priority number 
must be contiguous. 





4. Sections belonging to the declaratives portion of the procedure division are associated with the fixed 
segment, and must not contain priority-numbers in their section headings. 
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& 5. Priority-numbers 0 through 49 are used for the fixed segments, and priority numbers 50 through 99 
designate independent segments. (See 6.7 for a complete discussion of segmentation.) 


6. Sections comprising the fixed segment, if any, must precede all sections with priority numbers greater 
than 49. 


6.4. PARAGRAPH 
Definition: 


A body of one.or more procedural sentences with a procedure name by which it may be identified and 
referenced. 


Format: 
{paragraph-name. {sentence iz ‘ } ae 
Rules: 
1. A paragraph must contain at least one sentence, and may consist of any practical number of sentences. It 
must be headed by an identifying procedure name, since transfer references within the procedure 
division are made to entire paragraphs. 


2. Any practical number of paragraphs may be combined into a section. 


& 3. Generally, the object coding for a single sentence must be less than 4096 bytes. 


6.5. STATEMENTS AND SENTENCES 
Definition: 


A statement consists of a verb and any other reserved words and user-supplied words necessary to fulfil! one of 
the valid verb formats. 


A sentence consists of one or more statements terminated by a period. 
Format: 


statement-1 [ { statement-2 } ...]. 


6.5.1. Imperative Statements 
Definition: 
Those statements which are neither compiler-directing statements nor conditional statements (including 


conditional-causing arithmetic or input-output statements), which indicate a specific action to be taken by the 
object program. 
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Format: 





verb word-string. 
Rules: 
1. The verb must be one of those listed in 6.6, excluding the compiler-directing and conditional verbs and 
those input-output or arithmetic verbs for which the statement specifies one of the conditional options 
AT END, SIZE ERROR, or INVALID KEY (6.5.2). 
2. Word-string consists of all words (reserved words, names, literals) and punctuation necessary to complete 
a valid format for that verb. 


6.5.2. Conditional Statements 


Conditional statements specify that the truth value of a condition is to be determined, and that the subsequent 
action of the object program is dependent upon this truth value. 


A conditional statement is: 
a an IF statement; 
a an input/output verb that specifies an INVALID KEY or an AT END option; or 


. an arithmetic verb that specifies an ON SIZE option. 





6.5.3. Compiler-Directing Statements 
Definition: 
Statements directing the compiler to take certain actions at compilation time. 
Format: 
verb word-string 
Rules: 
1. All rules for compiler-directing statements are stated in the discussion of the verbs: 
COPY, ENTER, NOTE, USE 


2. A word-string consists of reserved words and user-supplied words necessary to complete a valid format 
for that verb. 


3. Compiler-directing statements must not appear within conditional statements. 


6.5.4. Overlapping Operands 





When a sending and a receiving item in an arithmetic statement or in an EXAMINE, MOVE, or TRANSFORM 
statement share portions of their storage areas, the results are undefined when these statements are executed. 
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A verb is a reserved word, used in the procedure division, denoting an action to be performed by the processor or the 
compiler. There are eight general categories of verbs in OS/3 COBOL. These categories, and the verbs in each are: 


7 Arithmetic: ADD, DIVIDE, MULTIPLY, SUBTRACT 

a Procedure Branching: ALTER, GO TO, PERFORM, EXIT 

7 Data Movement: EXAMINE, MOVE, SET, TRANSFORM 

7 Input-Output: ACCEPT, CLOSE, DISPLAY, INSERT, OPEN, READ, REWRITE, SEEK, WRITE 
es Ending: STOP 

. Conditional: IF 

7 Compiler Directing: COPY, ENTER, NOTE, USE 

a Interprogram Communication: CALL, ENTRY 


A description of the categories, and the verbs contained in each, is presented in the ensuing paragraphs. 


6.6.1. Arithmetic Verbs 


The arithmetic verbs permit basic calculations to be performed on the data. Four verbs corresponding to the four 
basic arithmetic operations are provided: ADD, SUBTRACT, MULTIPLY, and DIVIDE. 


Rules: 


All data items referenced in arithmetic statements must be represent numeric elementary data items 
previously defined in the data division. A data item following the word GIVING may be a numeric 
edited item. 


All literals used in arithmetic statements must be numeric. 


The maximum size of each operand is 18 decimal digits. The composite of operands (the data item 
resulting from the superimposition of all operands, aligned by decimal points) must not contain more 
than 18 digits. 


The data descriptions (PICTURE) of the operands may differ from each other. Decimal point alignment 
is supplied automatically throughout computations. Conversion of items with unlike usage also is 
automatic. 


lf, after decimal-point alignment, the number of places in the fraction of the result of an arithmetic 
operation is greater than the number of places provided for the fraction of the resultant identifier, 
truncation is relative to the size provided for the resultant identifier. When the ROUNDED option is 
used, the absolute value of the resultant identifier is increased by 1 whenever the most significant digit 
of the excess is equal to or greater than 5. 
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6. If, after decimal-point alignment, the value of the result exceeds the largest value that can be contained 
in the associated resultant identifier, a size error condition exists. In the event of a size error condition, 
one of two possibilities occurs, depending on whether the ON SIZE ERROR option has been specified: 





| If ON SIZE ERROR is not specified, and a size error condition arises, the effect is unpredictable. 

a If the ON SIZE ERROR option has been specified, and a size error condition arises, the value of 
the resultant identifier will not be altered. The imperative-statement associated with the ON SIZE 
ERROR option is executed after the last resultant identifier is considered. 


7. Statements with multiple results are considered by the compiler as though they were written: 


a as a statement that performs all the arithmetic necessary to arrive at the result to be stored in the 
receiving items, and stores that result in a temporary storage location; or 


s as a sequence of statements transferring or combining the value of this temporary location with a 
single result. These statements are considered to have been written in the same left-to-right 
sequence in which the multiple results are listed. For example, the result of the statement 

ADDA, B,C TOC, D(C), E 
is equivalent to 


ADD A, B, C GIVING temp 


ADD temp TO C 





ADD temp TO D(C) 
ADD temp TO E 
where: 


temp 
Is an intermediate result item. 


6.6.1.1. ADD Statement 
Function: 

The ADD statement adds two or more numeric operands and stores the result. 
Format 1: 


App 2 mcottiert , identifier-2 | +0 identifier-m [ROUNDED] 
—— (literal-1 , literal-2 _ ——_—- 


[, identifier-n [ROUNDED] ] ... [; ON SIZE ERROR imperative-statement] 
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Format 2: 


identifier-1 identifier-2 | identifier-3 
AOD tao z ie \ : literal-3 | ... GIVING 


identifier-n [ROUNDED] [; ON SIZE ERROR imperative-statement] 


Rules: 
1. In formats 1 and 2, each identifier must refer to an elementary numeric item, except identifiers to the 
right of the word GIVING, which may be numeric edited items. 
2. Each literal must be a numeric literal. 


3. The maximum size of each operand is 18 decimal digits. The composite of operands, which is that data 
item resulting from the superimposition of all operands, excluding the data items that follow the word 
GIVING, aligned on their decimal points, must not contain more than 18 digits. 

4. If format 1 is used, the values of the operands preceding the word TO are added together, and the sum is 
added to the current value in each identifier, identifier-m, identifier-n, ..., and the result is stored in each 
resultant identifier, identifier-m, identifier-n, ..., respectively. 


5. If format 2 is used, the values of the operands preceding the word GIVING are added together; the sum 
is stored as the new value of identifier-n, which is the resultant identifier. 


6. For a description of the ROUNDED and SIZE ERROR options, see 6.6.1, rules 5 and 6. 


6.6.1.2. DIVIDE Statement 
Function: 


The DIVIDE statement divides one numeric data item into another and sets the value of a data item equal to 
the results; identifier-1 may be either dividend or divisor, depending on whether INTO or BY is specified. 








Format 1: 
DIVIDE 2 dentifier-1, To identifier-2 [ROUNDED] 
literal — OO 
[; ON SIZE ERROR imperative-statement] - 
Format 2: 
DIVIDE 2 entifier-Th ito Jidentifier-2¢ 6 yng identifier-3 [ROUNDED] 
literal-1 ——  }literal-2 ——— oS 


[; ON SIZE ERROR imperative-statement] 
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Format 3: 
DIVIDE < dentifier-1 identifier-2\, GIVING identifier-3 [ROUNDED] 
———_ } literal-1 — }literal-2 —— ——————_—_ 
[; ON SIZE ERROR imperative-statement] 
Format 4: 
DIVIDE ¢ entifier-T ito < identifier-2\ Wing identifier-3 [ROUNDED] 
literal-1 —— | literal-2 — ———— 
REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement] 
Format 5: 
Divipe ¢ dentifierT, py <identifier-2),  GivinG identifier-3 [ROUNDED] 
literal-1 — }literal-2 —_— —— 
REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement] 
Rules: 
1. Each identifier must refer to a numeric elementary item, except the identifiers immediately to the right 


of the word GIVING may contain editing symbols. 


2. Each literal must be a numeric literal. 





3. The maximum size of each operand is 18 decimal digits. The composite of operands, which is the data 
item resulting from the superimposition of all receiving data items aligned on their decimal points, must 
not contain more than 18 digits. 

4. When format 1 is used, the resulting quotient replaces identifier-2. 

5. When either format 2 or 3 is used, the result is stored in identifier-3. 

6. For a description of the ROUNDED and SIZE ERROR options, see rules 5 and 6 in 6.6.1. 

7. Formats 4 and 5 are used when a remainder from the division operation is desired, namely identifier-4. A 
remainder in COBOL is defined as the result of subtracting the product of the quotient and the divisor 
from the dividend. If the ROUNDED option is specified, the quotient is rounded after the remainder is 
determined. 

6.6.1.3. MULTIPLY Statement 


Function: 


The MULTIPLY statement multiplies numeric data items and sets the value of a data item equal to the results. 
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@ Format 1: 
identifier-1 


MULTIPLY < | BY identifier-2 [ROUNDED] 
a literal-1 oot <a 


[; ON SIZE ERROR imperative-statement] 


Format 2: 
identifier- identifier-2 
MULTIPLY « ‘Gentifier-T yy Jidentifier-2 | ViNG identifier-3 [ROUNDED] 
————_ } literal-1 — _)literal-2 a —— 
[; ON SIZE ERROR imperative-statement] 
Rules: 
1. Only identifier-3, in format 2, may refer to a data item containing editing symbols. All other identifiers 
must refer to numeric elementary items. 
2. Each literal must be a numeric literal. 


3. When format 1 is used, the initial value of identifer-1 or literal-1 is multiplied by the initial value of 
identifier-2. The value of the multiplier (identifier-2) is replaced by the product resulting from operation 
on that identifier. 


4. | When format 2 is used, the initial value of identifier-1 or literal-1 is multiplied by identifier-2 or literal-2, 
@ and the result is stored in identifier-3. 


5. The maximum size of each operand is 18 decimal digits. 


6. For a description of the ROUNDED and SIZE ERROR options, see rules 5 and 6 in 6.6.1. 


| 6.6.1.4. SUBTRACT Statement 
Function: 


The SUBTRACT statement subtracts one, or the sum of two or more, numeric data items from one or more 
items, and sets the value of one or more items equal to the results. 


Format 1: 


SUBTRACT teat \ : eerste | 


literal-1 , literal-2 
FROM identifier-m [ROUNDED] [,identifier-n [ROUNDED] ] ... 


[; ON SIZE ERROR imperative-statement] 
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Format 2: 
SUBTRACT identifier-1 - identifier-2 
————_ | literal-1 , literal-2 
identifier-m : ra 
FROM ; GIVING identifier-n [ROUNDED] 
———— literal-m as a oe 


[; ON SIZE ERROR imperative-statement] 


Rules: 

1. When format 1 is used, all literals and identifiers preceding the word FROM are added together, and the 
total is subtracted from identifier-m, identifier-n, etc. The result of the subtraction is stored as the new 
value in identifier-m, identifier-n, etc. 

2. The maximum size of each operand is 18 decimal digits. The composite operand, which is that data item 
resulting from the superimposition of all operands, excluding the data item that follows the word 


GIVING, aligned on their decimal points, must not contain more than 18 digits. 


3. In format 2, identifier-n may refer to a data item that contains editing symbols. All other identifiers 
must refer to numeric elementary items. 


4. | When format 2 is used, all literals or identifiers preceding the word FROM are added together, the total 
is subtracted from literal-m or identifier-m, and the result of the subtraction is stored as the new value in 


identifier-n. 


5. For a description of the ROUNDED and SIZE ERROR options, see rules 5 and 6 in 6.6.1. 


6.6.2. Procedure Branching Verbs 

Normally, the statements in the procedure division are executed consecutively, in order of their appearance. This is 
also true of the execution of each paragraph and section. However, it is often necessary to alter this normal sequence 
of operation and branch to a different point in the program to execute a number of statements before returning to 


the next statement. The procedure branching verbs permit this sequencing of logical operations: 


ALTER, GO TO, PERFORM, EXIT 


6.6.2.1. ALTER Statement 
Function: 

The ALTER statement modifies a predetermined sequence of operations. 
Format: 


ALTER procedure-name-1 TO [PROCEED TO] procedure-name-2 
[, procedure-name-3 TO [PROCEED TO] procedure-name-4] ... 
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Rules: 


1. Procedure-name-1, procedure-name-3, ... is the name of a paragraph that contains only one sentence 
consisting of a GO TO statement without the DEPENDING ON option. 


2. Procedure-name-2, procedure-name-4, ... is the name of a paragraph or section in the procedure division. 
3. During execution of the object program, the ALTER statement modifies the GO TO statement in the 
paragraph named procedure-name-1, procedure-name-3, ... replacing the object of the GO TO by 


procedure-name-2, procedure-name-4, ..., respectively. 


4. A GO TO statement in a section with a priority equal to or greater than 50 must not be referred to by an 
ALTER statement in a section with a different priority. 


4 


6.6.2.2. GO TO Statement 
Function: 


The GO TO statement transfers control from one part of the procedure division to another. GO TO (format 3) 
is used as a special exit from a USE procedure. 


Format 1: 


GO TO [procedure-name] 


Format 2: 


GO TO procedure-name-1 [, procedure-name-2] ..., procedure-name-n 
DEPENDING ON identifier 


Format 3: 

GO TO MORE-LABELS 
Rules: 

1. Each procedure-name is the name of a paragraph or section in the procedure division of the program. 


2. Identifier is the name of a fixed-point numeric elementary item described without any positions to the 
right of the assumed decimal point. 


3. When format 1 is used, control is transferred to procedure-name or to another procedure-name if the GO 
TO statement has been affected by an ALTER statement. 


4. If procedure-name is omitted in format 1,an ALTER statement referring to this GO TO statement must 
be executed prior to execution of this GO TO statement. 


5. For a GO TO statement to be alterable, it must be the only statement in a paragraph. Only format 1 may 
be altered. 


6. When a GO TO statement is altered, control is transferred to the new procedure-name each time the GO 
TO statement is executed, until the GO TO statement is altered again with a different procedure-name. 
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7. When format 2 is used, control is transferred to procedure-name-1, procedure-name-2, ..., 
procedure-name-n, depending on the value of identifier being 1, 2, ..., n. If the value of identifier is 
greater than n or equal to 0, control is passed to the sentence following this statement. 





8. The maximum number of procedure-names allowed in format 2 is 64; the minimum is two. 

9. Format 3 transfers control from a USE procedure to the 1/O control system and is an extension to 
American National Standard COBOL (1968}. The following rules apply to the GO TO MORE-LABELS 
option: 

a Format 3 can appear only within a label-processing section in the declarative section. 

a When an input file is being processed, format 3 is a request to the !/O control routine to make the 
next standard user label record available, and transfer control to the beginning of the USE 
procedure. If there are no more labels to be processed, control is returned to procedure division. 

s When an output file is being processed, format 3 requests the I/O control routine to write the label 


in the user label area and return contro! to the first statement in the USE procedure so as to 
permit another label! record to be created in the user label area. 


6.6.2.3. PERFORM Statement 


Function: 


This verb permits a temporary departure from the normal sequence of execution to execute one or more 
procedures, a specified number of times, after which control is automatically returned to the normal sequence. 





Format 1: 


PERFORM procedure-name-1 [THRU procedure-name-2] 


Format 2: 
identifier-1 
PERFORM procedure-name-1 [THRU procedure-name-2]} / bebe \ TIMES 
—_—_——_ — integer-1 — 
Rules: 
1. Each procedure-name is the name of a section or paragraph in the procedure division. 


2. An identifier represents a numeric elementary item described in the data division; it also can represent a 
numeric item with no positions to the right of the assumed decimal! point. 


3. When the PERFORM statement is executed, control is transferred to the first statement after 
procedure-name-1. An automatic return to the statement following the PERFORM statement is 
established as follows: 


s If procedure-name-1 is a paragraph-name and procedure-name-2 is not specified, return occurs 
after execution of the last statement of procedure-name-1. 


a If procedure-name-1 is a section name and procedure-name-2 is not specified, return occurs after 
execution of the last statement of the last paragraph in procedure-name-1. 
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& a If procedure-name-2 is specified and is a: 
_ paragraph-name, return occurs after execution of the last statement of the paragraph, 


— section-name, return occurs after execution of the last sentence of the last paragraph in the 
section. 


4. lf there are two or more direct paths to a return point in a group of procedures being performed, 
procedure-name-2 may be the name of a paragraph consisting of the EXIT statement, to which all these 
paths must lead. If control passes to these procedures by other than a PERFORM statement, control 
passes through the last statement of the procedure to the following statement, regardless of use of the 
EXIT statement. 


5. Format 1 is the basic PERFORM statement. A procedure referred to by this type of PERFORM 
statement is executed once after which control is passed to the statement following the PERFORM 
statement. 


6. Format 2 is the TIMES option. When the TIMES option is used, the procedures are performed the 
number of times specified by identifier-1 or integer-1. Control then is transferred to the statement 
following the PERFORM statement. The value of identifier-1 or integer-1 must not be negative, and if 
the value is 0, control passes immediately to the statement following the PERFORM statement. Once 
the PERFORM statement is initiated, any redefinition of identifier-1 has no effect in varying the number 
of times the procedures are executed. 


7. A PERFORM statement within a section which has a priority number less than 50 can have, within its 
range, only the following: 


@ a sections with priority numbers of less than 50; and 
a sections entirely contained in a single segment with a priority number greater than 49. 

8. Independent segments are made available in their initial state. 

9. If a sequence of statements referred to by a PERFORM statement includes another PERFORM 
statement, the sequence of procedures associated with the included PERFORM statement must itself be 
either totally included in, or totally excluded from, the logical sequence referred to by the first 
PERFORM statement. Thus, an active PERFORM statement, the execution of which begins within the 
range of another active PERFORM statement, must not allow control to pass to the exit of the other 
PERFORM statement; furthermore, two or more such active PERFORM statements may not have a 
common exit. 

6.6.2.4. EXIT* Statement 


Function: 


The EXIT statement provides a common end point for a series of procedures, or marks the logical end of a 
called program. 


Format: 


& EXIT [PROGRAM] 


*Extension to American National Standard COBOL (1968). 
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1. The EXIT statement must be preceded by a paragraph-name and be the only sentence in the paragraph. 

2. The point to which control is transferred may be at the end of a range of procedures governed by a 
PERFORM statement or at the end of a declarative section. The EXIT statement is provided to enable a 
procedure-name to be associated with such a point. 

3. If control reaches an EXIT statement without the optional word PROGRAM, and no associated 
PERFORM or USE statement is active, control passes through the EXIT point to the first sentence of 
the next paragraph. 

4. If control reaches an EXIT PROGRAM statement while operating under the control of a CALL 
statement, control returns to the point in the calling program immediately following the CALL 
statement. 


NOTE: 


For examples of called or calling programs, see 6.8. 


6.6.3. Data Movement Verbs 
Four verbs are provided by OS/3 COBOL for the specific purpose of moving or manipulating data: 


EXAMINE, MOVE, SET, TRANSFORM 





These are verbs in addition to the several verbs which, as a secondary function, move or manipulate data in some 
manner. For example, an arithmetic verb may cause some data movement and/or manipulation. This, however, is 
secondary to its main function of effecting an arithmetic calculation. 


6.6.3.1. EXAMINE Statement 
Function: 

The EXAMINE statement replaces or counts the number of occurrences of a given character in a data item. 
Format: 


ALL 
TALLYING LEADING literal-1 [REPLACING BY literal-2] 
UNTIL FIRST 
EXAMINE identifier ALL 
REPLACING LEADING literal-3 BY literal-4 
[UNTIL] FIRST 


Rules: 
1. The description of the identifier must be such that USAGE IS DISPLAY (explicitly or implicitly). 


2. Each literal must consist of a single character belonging to a class consistent with that of identifier. A a 
literal may be any figurative constant except ALL. & 
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© 3. Examination of identifier proceeds as follows: 


LT Nonnumeric examination starts at the leftmost character and proceeds to the right; each character 
is examined individually. 


a Numeric examination starts at the leftmost character and proceeds to the right. Each character 
except the sign (which is ignored) is examined individually. 


4. The count derived as a result of the TALLYING option is placed in a special register called TALLY. 
Depending upon which option is selected, the count represents the following: 


a ALL option: the number of occurrences of fiteral-1. 


a LEADING option: the number of occurrences of literal-1 prior to encountering a character other 
than literal-1. 


a UNTIL FIRST option: the number of occurrences of characters not equal to literal-1 encountered 
before the first occurrence of literai-1. 


5. When either of the REPLACING options is used, the replacement rules are as follows: 
a ALL option: literal-2 or literal4 substituted for each occurrence of literal-1 or literal-3. 


a LEADING option: the substitution of literal-2 or literal-4 terminates as soon as a character, other 
than literal-1 or literal-3, is encountered. 


@ a UNTIL FIRST option: the substitution of literal-2 or literal-4 terminates as soon as literal-1 or 
literal-3 is encountered. 


a FIRST option: the first occurrence of literal-3 is replaced by literal-4. 


6.6.3.2. MOVE Statement 


Function: 


The MOVE statement transfers data, in accordance with the rules of editing, to one or more data areas. 


Format: 
: ifier- 
move 2 entifier-1| +6 isentifier-2[, identifier-3) ... 
= literal-1 == 
Rules: 
1. When moving to more than one area, the data designated by literal-1 or identifier-1 is moved first to 


identifier-2, then to identifier-3, etc. 
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2. Any MOVE in which both the sending and receiving items are elementary items is an elementary MOVE. 
Every elementary item belongs to one of the following categories: & 





. Numeric 

a Alphabetic 

7 Alphanumeric 

7 Numeric edited 

a Alphanumeric edited 


Table 6—1 shows legal categories of sending and receiving fields. 


Table 6—1. MOVE Sending and Receiving Fields 


Receiving 


Alphanumeric 


Alphabetic 


———- 


Alphanumeric 
edited 


*A numeric item with an implicit decimal point not immediately to the right of the least significant digit 
must not be moved to an alphanumeric or alphanumeric-edited data item. 





3. The following rules apply to legal elementary moves: 


a When the receiving field is alphanumeric edited, alphanumeric, or alphabetic, justification and any 
necessary space filling takes place as defined under the JUSTIFIED option. If the size of the 
sending item is greater than the size of the receiving item, the excess characters are truncated after 
the receiving item is filled. 


. When the receiving field is a numeric or numeric edited item, alignment by decimal point and any 
necessary zero filling takes place, except where zeros are replaced because of editing requirements. 
If the receiving item has no operational sign, the absolute value of the sending item is used. 
Truncation occurs if the sending item has more digits to the left or right of the decimal point than 
the receiving item can contain. The result at object time is undefined if the sending item contains 
any nonnumeric characters. 


a Any necessary conversion of data from one form of internal representation to another takes place 
during the move, together with any specified editing in the receiving item. 


a When the sending field is an edited item, it is treated as an alphanumeric item. 





a An index data item cannot appear as an operand in a MOVE statement. 
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4. Any MOVE that is not an elementary MOVE is treated as if it were an alphanumeric-to-alphanumeric 
elementary MOVE, except that no conversion of data from one form of internal representation to 
another occurs. 


5. The figurative constant ZERO (ZEROS, ZEROES) belongs in the numeric category. The figurative 
constant SPACE (SPACES) belongs in the alphabetic category. All other figurative constants belong in 
the alphanumeric category. 


6.6.3.3. SET Statement 


Function: 


The SET statement establishes reference points for table handling operations by setting index-names associated 
with table elements. 


Format 1: 
identifier-1 , identifier-2 (ene sa 
SET index-data-item-1 , index-data-item-2} ...TO < . ss ? 
_——* : ; ae index-name-3 
index-name-1 , ‘index-name-2 | : \ 
literal-1 
Format 2: 


DOWN a oa \ 


SET index-name-1[, index-name-2].. . { literal-1 


Rules: 
1. All identifiers must be either index data items or numeric elementary items described without any 
positions to the right of the assumed decimal point, except that identifier-1 in format 2 must not be an 
index-data-item. 


2. All literals must be positive integers. 


3. All index-names are considered related to a given table and are defined by being specified in the 
INDEXED BY clause. 


4. In format 2, the contents of index-name-1, index-name 2... are incremented (UP BY) or decremented 
(DOWN BY) by a value that corresponds to the number of occurrences represented by the value of 
identifier-1 or literal-1. 

5. The following explain the allowable combinations of choices in the SET statement. 

a SET index-name-1 TO index-name-3 
The occurrence number value of index-name-3 computes a new displacement value for 
index-name-1. Also, the occurrence number value of index-name-3 replaces that of index-name-1. 
If the length of one occurrence is the same for both, no computation is necessary. 

a SET index-name TO index-data-item 
Same as SET index-name-1 TO index-name-2, except that no computation takes place. If the value 


contained in the index-data-item does not correspond to an occurrence number of an element in 
the table indexed by index-name, the result is undefined. 
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DOWN BY identifier 
a SET index-name < TO ee \ 
UP BY 


When identifier or literal is a numeric data item and usage is not index. The value of identifier or 
literal is treated as an occurrence number and is used to compute a new displacement value for 
index-name. Identifier or literal must be elementary unsigned integer. Also, the value of identifier 
or literal replaces, increments, or decrements the occurrence number value of index-name. 


index-data-item-2 \ 


= SET index-data-item-1 TO {' 
—_ — _ lindex-name 


A move with no conversion is executed. Index-data-item-1 has no associated table element length; 
therefore, there is no unique displacement value for a given occurrence number value. 


= SET identifier TO index-name 


The value of the occurrence number of index-name replaces the value of identifier with 
appropriate conversion to the data type of identifier; i.e., conversion of binary occurrence number 
to packed decimal. Rules for MOVE statement with integer numeric sending field apply. Identifier 
must be a numeric data item, an alphanumeric data item, or a group item. 












6. Internal format of index-name and index-data-item: 
Description Occurrence Number Displacement 
of Contents in Binary in Binary 
Format 32 bits 
0 to 65,535 0 to 65,535 


~———————-— 8 bytes 
Index-name items are word aligned, but index-data-items are not aligned. 
7. Formula for calculating displacements for index-name: 


Displacement=(occurence-number—1) x (length of one occurrence) 


6.6.3.4. TRANSFORM* Statement 

Function: 
The TRANSFORM statement may be used to alter characters of an identifier according to a user-defined 
transformation rule or table. It may also be used to effect code base translation between EBCDIC and ASCII 
via compiler-supplied tables. 


Format 1: 


TRANSFORM identifier-3[, identifier-4] .. . CHARACTERS 


figurative-constant-1 figurative-constant-2 
FROM < identifier-1 TO < identifier-2 
nonnumeric-literal-1 nonnumeric-literal-2 


*Extension to American National Standard COBOL (1968). 
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TRANSFORM identifier-3[, identifier-4] ... CHARACTERS 


Format 3: 





FROM Fen TO EBCDIC \ 


EBCDIC TO ASCII 


TRANSFORM identifier-3[, identifier-4] ... CHARACTERS 


Rules: 


BY). = 
{ ON \ identifier-5 


All identifiers used in this statement must be described either explicitly or implicitly as USAGE IS 
DISPLAY. Identifier-1, identifier-2, or identifier-5 may not be variable-length operands. 


The least significant digit position of a signed, decimal numeric display item without a SEPARATE 
SIGN clause is treated as a single character, not as a signed digit. 


In format 1, identifier-1 and identifier-2 must not exceed 256 characters in !ength. The length of 
identifier-2 must equal the length of identifier-1, or identifier-2 must have a length of 1 character. 


In format 1, all figurative constants are permitted except ALL. 
In format 1, a character must not be repeated in identifier-1 or in nonnumeric-literal-1. 
In format 3, identifier-5 must be a length of 256 characters. 


The following paragraphs and Table 6—2 explain the allowable combinations of choices in the 
TRANSFORM statement. 


a The following rules apply to these combinations in format 1: 

identifier-1 TO identifier-2 

identifier-1 TO nonnumeric-literal-2 

identifier-1 TO figurative-constant-2 

nonnumeric-literal-1 TO identifier-2 

nonnumeric-literal-1 TO nonnumeric-titeral-2 

nonnumeric-literal-1 TO figurative-constant-2 

— If the FROM and the TO operands are the same length, any occurrence in identifier-3, 
identifier-4, and so on, of a character (or the single character) in operand-1 is replaced by the 
character (or the single character) in the corresponding position of operand-2. 

- {f the FROM operand exceeds one character and the TO operand is only one character, any 


occurrence in identifier-3, identifier-4, and so on, of any character in operand-1 is replaced 
by the single character in operand-2. 
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TO 







FROM 


TO 







FROM 


TO 
identifier-2 





FROM 


TO 








FROM 


TO 





figurative-constant-1 


figurative-constant-2 


figurative-constant-1 


nonnumeric-literal-2 


figurative-constant-1 


nonnumeric-literal-1 


figurative-constant-2 


nunnumeric-literal-1 


nonnumeric-titeral-2 
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The following rule applies to these combinations in format 1: 


figurative-constant-1 TO identifier-2 
figurative-constant-1 TO nonnumeric-literal-2 


figurative-constant-1 TO figurative-constant-2 
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- Length of operand-1 and operand-2 must be one character. Any occurrence in identifier-3 of 
the single character in operand-1 is replaced by the single character in operand-2. 


The following applies to format 2: 


- Identifier-3 is transformed from ASCII to EBCDIC or from EBCDIC to ASCII, depending on 
the FROM and TO operands, according to Table 12—2. 


The following rules apply to format 3: 


- Identifier-3 may be described as having any length up to a maximum of 65,535 characters. 


- Identifier-5 is a O—255 binary value positional translate table, i.e., any character in 
identifier-3 with a binary value of O will be transformed to the character in the first position 
of identifier-5; any character in identifier-3 with a binary value of 1 will be transformed to 
the character in the second position of identifier-5, etc. 


Table 6—2. Combination of FROM and TO Options in a TRANSFORM Statement (Part 1 of 2) 








Identifier-3 
Before 






All occurrences of figurative-constant-1 in the 
item represented by identifier-3 are replaced by 
figurative-constant-2. (Each operand must be a 
single character.) 









Ali occurrences of figurative-constant-1 in the 
item represented by identifier-3 are replaced 
by nonnumeric-literat-2. (Each operand must 
be a single character.) 






All occurrences of figurative-constant-1 in the 
item represented by identifier-3 are replaced by 
the item represented by identifier-2. (Each 
operand must be single character.) 


































ALPHA 
(current 
value of 
ALPHA = B) 











All occurrences of any character of nonnumeric- AB12X7P. 
literal-1 in the item represented by identifier-3 
are replaced by the single-character figurative- 


constant-2. 









ABCD 12X 





Nonnumeric-literal-1 and nonnumeric-literal-2 
must be equal in length, or nonnumeric- 
literal-2 must be a single character. 


tf the operands are equal in length, any character 
in the item represented by identifier-3 that is 
equal to a character in nonnumeric-literal-1 is 
replaced by the character in the corresponding 
position of nonnumeric-literal-2. 






If nonnumeric-literal-2 is a single character, then AB21X73 
all occurrences of any character of nonnumeric- 
literal-1 in the item represented by identifier-3 

are replaced by the single character in nonnumeric- 


literat-2. 















"1234567890" 


“ABCDEFGHIJ” 












1234567890" 























123412X 





“1234567890” 




















ABLLXLL 



























8057 Rev. 2 
UP-NUMBER 





SPERRY UNIVAC Operating System/3 






6—21 


UPDATE LEVEL | PAGE 


Table 6—2. Combination of FROM and TO Options in a TRANSFORM Statement (Part 2 of 2) 


FROM 
nonnumeric-literal-1 
TO 

identifier-2 


FROM 

identifier-1 

TO 
figurative-constant-2 


FROM 

identifier-1 

TO 
nonnumeric-literal-2 


FROM 
identifier-1 
TO 
identifier-2 








The two operands must be equal in length, or 
identifier-2 must represent a single-character item. 


If the operands are equal in length, any character 
in the item represented by identifier-3 that is 
equal to a character in nonnumeric-literal-1 is 
replaced by the character in the corresponding 
position of the item represented by identifier-2. 


If identifier-2 is a single character, then all 
occurrences of any character of nonnumeric-literal-1 
in the item represented by identifier-3 are replaced 
by the character represented by identifier-2. 


All occurrences of any character of the item repre- 
sented by identifier-1 in identifier-3 are replaced 
by the single character figurative-constant-2. 


The two operands must be equal in length, or 
nonnumeric-literal-1 must be a single-character 
item. 


If the operands are equal in length, any character in 
the item represented by identifier-3 that is equal to 
a character in the item represented by identifier-1 
is replaced by the character in the corresponding 
position of nonnumeric-literal-2. 


{f nonnumeric-literal-2 is a single character, then 
all occurrences of any character of the item repre- 
sented by identifier-1 in the item represented by 
identifier-3 are replaced by nonnumeric-literal-2. 


Any character in the item represented by 
identifier-3 that is equal to a character in the item 
represented by identifier-1 is replaced by the 
character in the corresponding position of the 
item represented by identifier-2. 


Both operands must be of equal length. Each 
of the operands may contain one or more 
characters. 


identifier-3 
Before 


1A2 ADEF 


ABCD 
ABCD 


1AB4 


“A12DEF” 


GAMMA 
(current 
value of 
GAMMA = ABC.) 


ALPHA 
(current value 
of ALPHA = 
A12B) 


DELTA 
{current value 
of DELTA = 
ABCDEF) 


{TEM-A 
(current value 
of item-A = 
1234.) 





Identifier-3 
After 


BETA EFDF21A 
(current value 

of BETA = 

FED21A,) 

GAMMA 1BC 
(current value 

of GAMMA = 1) 


“DCBA” 


ITEM-B 
(current value 
of ITEM-B = 
ABCD.) 


6.6.4. Input/Output Verbs 


In any data processing application, quantities of data are passed between storage and external media such as card, 
tape, or disc devices. The input/output verbs control and coordinate the flow of data, enabling the COBOL 
programmer to obtain records for processing and return the processed record to the external media. The 
input/output verbs are: 


ACCEPT 
CLOSE 


DISPLAY 
OPEN 


READ 
WRITE 


INSERT 
REWRITE 


SEEK 


6.6.4.1. ACCEPT Statement 
Function: 


Reads low volume data from an appropriate hardware device, system main storage location, or UPS! (user 
program switch indicator) byte. 


Format: { 


mnemonic-name 
DATE* 

DAY* 

TIME* 


ACCEPT identifier | FROM 





*Extension to American National Standard COBOL (1968). 
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Rules: 


1. The ACCEPT statement causes the next set of data available at the mnemonic-name to replace the 
contents of the data item named by the identifier. Data is moved, left-justified. 





2. The job control stream is assumed to be the input source when the FROM option is not specified. The 
description of identifier determines the number of cards accepted. One card from the job control stream 
contains up to 80 characters. The maximum length specified by identifier is 4095 characters, which 
would require 52 cards. 


3. To indicate that input is to be accepted from the system console, the following message is displayed: 
CA10 ACCEPT READY 


Program operation is suspended until a type-in occurs (CA10 indicates a COBOL ACCEPT). The 
maximum number of characters that can be transmitted from the system console for a single ACCEPT is 





60. 
4. The mnemonic-name must be associated with an implementor-name in the SPECIAL NAMES paragraph 
of the environment division. Special-names that can be the source of accepted data are: 
SYSCOM 
SYSDATE 
SYSTIME 
SYSCONSOLE 
SYSIN-96 
SYSSWCH 
See Table 4—1 for specific interpretation of implementor-names. 
5. The identifier must be defined implicitly or explicitly as USAGE IS DISPLAY. 
aye 6. The DATE and DAY options make ‘the current date svatlable in the formats yymmdd and yyddd, 


respectively. The TIME option makes the current time of day available in the format hhmmss0O0. 


NOTE: 


The use of ACCEPT statements is illustrated in Section 9. 


6.6.4.2. CLOSE Statement 
Function: 


Terminates processing of one or more input or output reets, units, or files with optional rewind with or 
without lock. 


Format: 
A REEL LOCK 
CLOSE file-name-1 | ome [ wre { NO RI REWIND | 








; REEL LOCK 
| tena fim) [ wire { NO REWIND i] 
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Rules: 


@ 1. After a CLOSE statement without a REEL/UNIT phrase has been executed for a file, an OPEN 
statement must be executed before any other references are made to the file. 


2. The REEL/UNIT option effects reel or unit swapping in a sequential file process. When specified, it 
terminates the current reel or unit of a multivolume file. Processing continues with the next reel or unit 
of the file. Unless early termination of the current reel or unit is desired, the REEL/UNIT phrase is 
unnecessary because swapping occurs automatically at the end of the current reel or unit. If the reel/unit 
is to be dismounted from the device, the LOCK option should be used. After execution of a CLOSE 
statement with a REEL/UNIT option, the file is still open. 


3. The UNIT option is applicable for direct access files only when ACCESS MODE IS SEQUENTIAL is 
specified. 


4. The REEL, NO REWIND, and LOCK options are applicable only to magnetic tape files and are 
meaningless when operating with any other device. 


5. When the LOCK option is specified for reel, the current reel of the tape file is rewound and unloaded. 
When the LOCK option is used without a REEL option, the file is closed and the current volume is 
rewound and unloaded. As a result, the file cannot be reopened without operator intervention. 


6. Each file-name refers to an FD name in the data division. 


7. If neither LOCK nor NO REWIND is specified, the current reel of the file is rewound and al! other reels 
belonging to the file are rewound. However, this rule does not apply to those reels controlled by a prior 


& CLOSE REEL entry. 


8. If the NO REWIND option is specified, the current reel of the file remains in whatever position it is in at 
the time the CLOSE is given. , 
6.6.4.3. DISPLAY Statement 
Function: 
The DISPLAY statement writes tow volume data to an appropriate hardware device or system main storage 
location. It can also be used to set the UPSI switches. (See Section 9 for a detailed explanation of DISPLAY 
statement usage.) 
Format: 
identifier-1| | , identifier-2 : 
DISPLAY ae MT titeral-2 ] ... (UPON mnemonic-name] 
Rules: 


1. When the UPON option is omitted, the data is written on the system console (SYSCONSOLE). 


2. | When the UPON option is specified, the mnemonic-name must be associated with an implementor-name 
in the SPECIAL-NAMES paragraph (4.2.3) in the environment division. 


& 3. The special-names that may be associated with the DISPLAY statement via mnemonic-name are: 


SYSCOM SYSSWCH SYSLST 
SYSCONSOLE SYSSWCH-n SYSLOG 
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See Table 4—1 for more detailed information. 


4. 


NOTE: 


If the system console is the hardware device, the sum of the sizes of operands in a DISPLAY statement 
may not exceed 250 characters. The data is displayed on the system console a line at a time. Each line is 
preceded by CD10A (CD11A if SYSLOG is used), followed by 55 characters of the contents of the 
operands. 


COMP-3 numeric items are converted to DISPLAY decimal. For signed numeric items, a separate sign 
character is displayed immediately following the operand. 


The number of printer characters displayed is a multiple of 120. An advance of one line precedes each 
line of output. Each operand displayed is limited to 4092 characters. For signed numeric items, a 
separate sign character is displayed immediately following the operand. 


The use of DISPLAY statements is illustrated in Section 9. 


6.6.4.4. OPEN Statement 


Function: 


The OPEN statement initiates processing of both the input and output files. It initiates checking or writing of 
labels and other input/output operations. 


Format: 


INPUT file-name larrnnorn ] i 


WITH NO REWIND 


OPEN < I-O ({file-name} ... 


Rules: 


OUTPUT {Fie-name [WITH NO REWIND] \ sree 


At least one of the options INPUT, OUTPUT, or !-O must be specified. They may appear in any order. 
The I-O option pertains only to mass storage files. 

The REVERSED and NO REWIND options apply only to sequential single reel processing. 

The REVERSED option requires that the file be positioned at its end prior to the execution of the 
OPEN statement. The NO REWIND option requires that the file be positioned at its beginning prior to 
the execution of the OPEN statement. 

The OPEN statement must be applied to all files. 


File-name refers to the FD name in the file section of the data division. 


The OPEN statement for a file must be executed prior to the first READ, INSERT, REWRITE, SEEK, 
or WRITE statement for that file. 


A second OPEN statement for a file must not be executed prior to the execution of a CLOSE statement 
for that file. 
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& 8. The OPEN statement does not obtain or release the first data record. When checking or writing labels, 
the user’s beginning label subroutine is executed if one was specified by a USE statement (6.6.7.4). 


6.6.4.5. READ Statement 


Function: 


For sequential file processing, the READ statement makes available the next logical record from a file and 
allows performance of a specified imperative-statement when end of file is detected. 


For random file processing of mass storage files, the READ statement makes available a specific record from a 
file, and allows performance of a specified imperative-statement if the contents of the associated keys are 
found to be invalid. 


Format: 


: ? i AT END . ; 
READ file-name RECORD [INTO identifier] ; { INVALID ney} imperative-statement 


Rules: 


1. An OPEN statement (INPUT or I-O) must be executed for a file prior to the execution of the first 
READ statement for that file. 


é 2. When a file consists of more than one type of record, the records automatically share the same storage 
area. 


3. The AT END or INVALID KEY clause is required for all file organizations except indexed organization, 
where its use is optional. The execution of the imperative statement AT END or INVALID KEY is 
dependent upon file organization and file usage. See Section 11 for detailed information on these 
conditions. 


4. If an input file described with the keyword OPTIONAL is not present, the imperative-statement in the 
AT END option is executed on the first READ statement. 


5. The READ statement performs the functions of the SEEK statement implicitly for random access files. 


6. The INTO option may be used only when the input file contains just one size record. Reading INTO is 
performed according to the rules of a group MOVE (6.6.3.2). 


7. Data items of a logical record cannot be accessed prior to the read of the associated record. The record 
area may not be accessed prior to a read or after an AT END condition is detected. 


6.6.4.6. WRITE Statement 


Function: 


the printer. The WRITE statement permits performance of a specified imperative statement if the contents of 


; The WRITE statement releases a logical record for an output file. It can also be used for vertical positioning of 
the associated keys are found to be invalid. 
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Format 1: 





WRITE record-name [FROM identifier-1} 
identifier-2 LINES 
ADVANCING integer LINES 
mnemonic-name 


AFTER 
BEFORE 


Format 2: 
WRITE record-name [FROM identifier-1] [; INVALID KEY imperative-statement] 

Rules: 
1. A file must be opened (output or I-O) prior to execution of the first WRITE statement for that file. 
2. The record-name is the name of a logical record in the file section of the data division. 


3. When the FROM option is used, data is moved from identifier-1 to record-name according to the rules 
specified for a group MOVE. 


4. After the WRITE statement is executed, information in record-name is no longer available, but 
identifier-1 information is available. The record area associated with an output file may not be accessed 
| prior to the open for that file. 


5. The INVALID KEY clause in format 2 is used when processing direct access files and is required for 
RELATIVE file organization; for SEQUENTIAL and INDEXED organization, its use is optional. The 
conditions that cause execution of the INVALID KEY imperative-statement depend upon file 
organization and file usage. For more detailed information, see Section 11. 





6. The ADVANCING option controls the vertical positioning of each record on the printed page. If this 
option is omitted for a printer file, the printer automatically advances one line before printing (i.e., 
WRITE record-name AFTER ADVANCING 1 LINE). Any form of the ADVANCING option overrides 
this automatic advance. 


[2] The identifier represents a numeric item with no positions to the right of the assumed decimal 
point. 


a The contents of identifier-2 or the value of integer must not exceed 127. A value of OQ is 
permissible (where overprinting is desired). 


a Mnemonic-name specifies a channel in the forms control paper tape loop. This channel is identified 
in the SPECIAL-NAMES paragraph of the environment division, using SYSCHAN-t IS 
mnemonic-name, where t is the channel (4.2.3). 


7. The USE FOR FORM-OVERFLOW clause in the declaratives section of the procedure division permits 
the programmer to perform special procedures when a form overflow condition exists. Form overflow is 
detected during the print and space functions of the printer. If form positioning by paper tape loop is 
specified (ADVANCING mnemonic-name), the form overflow condition does not occur. 
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@ 6.6.4.7. INSERT* Statement 

Function: 
The INSERT statement adds a logical record to indexed organization files. 

Format: 
INSERT record-name [FROM identifier-1] [; INVALID KEY imperative-statement] 

Rules: 
1. The INSERT verb can be used only when access is random or extended and organization is indexed. 
2. A file must be opened (1-O) prior to execution of the first INSERT statement for that file. 
3. The record-name is the name of a logical record in the file section of the data division. 


4. When the FROM option is used, data is moved from identifier-1 to record-name according to the rules 
specified for a group MOVE. 


5. After the INSERT statement is executed, information in record-name is no longer available, but 
identifier-1 information is available. 


6. The INVALID KEY clause is required for all file organizations except indexed organization, where its 
use is optional. See Section 11 for detailed information on these conditions. 


6.6.4.8. REWRITE* Statement 
Function: 
The REWRITE statement releases a logical record for an output file for updating an existing record. 
Format 1: 
REWRITE record-name [FROM identifier] 
Format 2: 
REWRITE record-name [FROM identifier] [; INVALID KEY imperative-statement] 


Rules: 


1. A file must be opened (!-O) and a record read prior to execution of the first REWRITE statement for 
that file. 


2. The record-name is the name of a logical record in the file section of the data division. 


3. When the FROM option is used, data is moved from identifier-1 to record-name according to the rules 
specified for a group MOVE. 


*Extension to American National Standard COBOL (1968}. 
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4. After the REWRITE statement is executed, information in record-name is no longer available, but 
identifier-1 information is available. 


5. The imperative statement INVALID KEY in format 2 is used when processing direct access files. The 
INVALID KEY clause is required for all file organizations except indexed organization, where its use is 
optional. 

6.6.4.9. SEEK Statement 
Function: 

The SEEK statement initiates access of a mass storage data record for subsequent reading or writing. 
Format: 

SEEK filename RECORD 


Rules: 





1. A SEEK statement pertains only to the disc files specified in the following chart. 
Organization 


Access 
Type SEEK Aliowed 
[ses [om [oe 


Relative 


2. The value of the identifier in the ACTUAL or RELATIVE key clause is used by the SEEK statement to 
determine the location of the record to be accessed when ORGANIZATION is RELATIVE. When 
ORGANIZATION is INDEXED, the value of the identifier in the SYMBOLIC KEY clause is used. 
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3. Two SEEK statements for the same file may logically follow each other. Any validity check associated 
with the first SEEK statement is negated by the execution of a second SEEK statement. 


6.6.5. Ending Verb (STOP) 


This statement is used to halt execution of the object program either permanently or temporarily, with or without a 
display of a Siteral. 


Format: 
literal 
STOP 
—— | RUN 
Rules: 

1. The literal may be numeric or nonnumeric or any figurative constant except ALL. 

2. The literal is communicated to the operator through the system console, and continuation of the 
program begins with execution of the next statement after the STOP statement. The literal option is 
equivalent to a DISPLAY statement, but requires a reply from the operator to continue the program. 
For example, the error routine 


SEQ-ERROR. 


STOP ‘CARDS OUT OF SEQUENCE, CORRECT SEQUENCE, REPLACE CARDS IN READER, 
ANSWER R WHEN READY’. 


causes the literal to be displayed as follows: 


CD10 CARDS OUT OF SEQUENCE, CORRECT SEQUENCE, REPLACE CARDS IN READER, 
ANSWER R WHEN READY. 


This is followed by 
CA10 ACCEPT READY 
and program operation is suspended pending operator reply. 
3. When the RUN option is used, the object program is halted permanently; therefore, when this option 


appears in an imperative statement, it should appear as the last statement in a sequence of imperative 
statements. 


6.6.6. Conditional Verb (IF) 


Conditional expressions are used in situations in which the outcome of a test determines the next logical step to be 
performed. The verb IF is used with conditional expressions. The IF statement causes a.condition to be evaluated. 
The subsequent action of the object program depends on whether the value of the condition is true or false. 


Format: 
NEXT SENTENCE ELSE NEXT SENTENCE 
ition: EN] *) ——— ——_—— i — eo 
IF condition; (THEN] bocce \ [ Vonmeawisee) eee \] 


*Extension to American National Standard COBOL (1968). 
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A condition must be simple. A simple conditional expression contains only one of the following: a 
relational expression, condition-name, or item class test. 


Statement-1 and statement-2 represent either a conditional statement or an imperative statement. 


The NEXT SENTENCE option may be omitted if it immediately precedes the terminal period of the 
sentence. 


Execution of an IF statement takes the following action: 


a Condition TRUE: Statements immediately following the condition (statement-1) are executed; 
control then passes implicitly to the next sentence. 


a Condition FALSE: Either statement-2 is executed or, if ELSE is omitted, the next statement is 
executed. 


Statement-1 and statement-2 may contain an IF statement, and the IF is considered nested. IF 
statements within IF statements are considered paired IF and ELSE combinations, proceeding from left 
to right. Thus, any ELSE statement detected is considered to apply to the immediately preceding IF 
statement not already paired with an ELSE statement. The maximum number of IF statements that may 
be nested in OS/3 Basic COBOL is 30. 


When control is passed to the next sentence, it is transferred to the next sentence as written or to a 
return mechanism of a PERFORM or a USE statement. 





The condition in an IF statement causes the object program to select between alternate control paths, 
depending on the truth value of a test. Five types of conditions are possible: 


7 Relation condition 

a Class condition 

a Condition-name condition 
a Switch-status condition 

a Sign condition 

Relation Condition 


A relation condition causes a comparison of two operands, each of which may be an identifier or a 
literal. The general format for a relation condition is: 


literal-1 


identifier-1 
literal-2 


\ ; ean 
relational-operator 
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The first operand is called the subject of the condition; the second operand is called the object of the 
condition. The subject and object may not both be literals; they may, however, be an identifier and a 
literal. The operator specifies the type of comparison to be made in a relational condition. The 
relational-operators and the format in which they are used are: 


is {NOT EQUAL TO 
[NOT] = 
{NOT] GREATER THAN 


'S Not] > 


IF eee \ 


{ identifier-2 ; 
literal-1 [NOT] LESS THAN literal-2 


'S INOT] < 
EQUALS* 

UNEQUAL* 
EXCEEDS* 


Comparison of the various types of operands is accomplished as follows: 

o Numeric operands 
For numeric operands, comparison is with respect to the algebraic value of the operands. The 
number of digits in the operands is not significant. Zero is considered a unique value regardless of 


the sign. 


Comparison of these operands is permitted regardless of their usage. Unsigned numeric operands 
are considered positive for purposes of comparison. 


a Nonumeric operands 


For nonnumeric operands or one numeric and one nonnumeric operand, a comparison is with 
respect to a specified collating sequence of characters. The size of an operand is the total number 
of characters in the operand. Numeric and nonnumeric operands may be compared only when 
their usage is the same. The two cases to be considered are operands of equal size and operands of 
unequal size. 


- Operands of equal size 
Corresponding character positions are compared, starting from the high-order end and 
continuing until either a pair of unequal characters is detected or the low-order end of the 
item is reached, whichever is first. The items are equal if all pairs of characters are equal. 
The first pair of unequal characters encountered is compared for relative location in the 
OS/3 COBOL collating sequence. The operand containing the character that is positioned 
higher in the collating sequence is the greater operand. 


- Operands of unequal size 


Comparison proceeds as though the shorter operand were extended on the right by sufficient 
spaces to make the operands of equal size. 


*Extensions to American National Standard COBOL (1968). 
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YT] Index-names and/or index data-items 





- Two index-names 
The result is the same as if the corresponding occurrence numbers were compared. 
- Index-name and data-item or literal 


The occurrence number corresponding to the value of the index-name is compared to the 
data-item or literal, both of which must be elementary unsigned integers. 


- Index data-item and index-name or two index data-items 
The actual values are compared without conversion. 


The result of the comparison of an index data-item with any data-item or literal not specified 
above is undefined. 


9, Class Condition 


The class condition determines whether the operand is numeric or alphabetic. The general format for the 
class condition is: 


Soneme 


| IF identifier IS [NOT] { NUMERIC 


The operand being tested must be described, implicitly or explicitly, as USAGE IS DISPLAY or USAGE 
IS COMP-3. 





a Numeric test 
The identifier can be described as alphanumeric or numeric with USAGE COMP-3 or DISPLAY. If 
A the record description of the item being tested does not contain an operational sign, the item is 
considered numeric only if the contents are numeric and a sign is not present. 


a Alphabetic test 


The identifier must be described as alphabetic. The item being tested is considered alphabetic only 
if the contents consist of any combination of the characters A through Z and the space. 


10. Condition-Name Condition 


A conditional variable is tested to determine whether its value is equal to the value associated with a 
condition-name. 


The format for a condition-name condition is: 
iF [NOT] condition-name 
11. Switch-Status Condition 


Determines the ON or OFF status of a switch, as described in 4.2.3, rule 10. The condition-name 
specified in the ON or OFF STATUS IS option is tested in the format: 





LE [NOT] condition-name 
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& 12. Sign Condition 


Determines whether the value of an operand is less than, greater than, or equal to zero. An operand is 
Positive if its value is greater than zero, negative if its value is less than zero, and Zero if its value is equal 
to zero. The format for a sign condition is: 
NEGATIVE 
IF identifier iS [NOT] < POSITIVE 
ZERO 
6.6.7. Compiler-Directing Verbs 
Certain verbs direct the compiler to perform a specific action and do not directly cause any object coding to be 
produced. These verbs affect the object program indirectly, except for the verb NOTE which has absolutely no 
effect on the object program. 


The compiler-directing verbs are: 


COPY, ENTER, NOTE, USE 


6.6.7.1. COPY Statement 


Function: 


The COPY statement copies text from the COBOL library into the source program with a capability of word 
substitution as the text is copied (see 7.3). 


Format: 
COPY library-name. 


Rules: 


1. The COPY statement may appear anywhere in a COBOL program. 


2. The library-name may contain no more than eight characters; the name may be composed of 
alphanumeric characters and the hyphen, but it must contain at least one alphabetic character. 


3. The remainder of the line on which a COPY statement is terminated must be blank. In other words, 
nothing may follow a COPY statement on the same source program line. 


4, The copying process is terminated by the end of the library text. 
5. Both the COPY statement and the statements of the library text to which it refers appear in the output 
listing, unless printing of the library text is suppressed through use of the LST=I option on the COBOL 


compiler PARAM statement. (See 7.1.1.) 


6. The text contained in the library must not contain any COPY statements. 
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6.6.7.2. ENTER* Statement 





Function: 
The ENTER statement, in conjunction with the CALL or ENTRY statements, permits run-time 
communications between the main COBOL program and previously compiled subprograms in OS/3 COBOL or 
other languages. ENTRY also may be used with the EXIT PROGRAM or RETURN options. 


Format 1° 


ENTER LINKAGE. 





file-name 
CALL entry-name | USING ¢ identifier 
procedure-name 


ENTER COBOL. 








Format 2: 


ENTER LINKAGE, 
ENTRY entry-name [USING { unqualified-data-name taal 
ENTER COBOL. 








Format 3: 


ENTER LINKAGE. 
EXIT PROGRAM. | 

VRE 

ENTER COBOL. 








Rules: 
1. Format 1 transfers control from one object program to another within the run unit. 


t Entry-name must be the external symbol! of an entry point in the subprogram being called. 
Entry-name may be a nonnumeric literal. 


I] Each of the identifiers in the USING clause of the CALL statement must be a reference to any 
level data item except an 88 level in the file, working-storage, or linkage sections of the calling 
program. 


a Procedure-name and file-name can be used only if the called subprogram is written in a language 
other than COBOL. 


a If the subprogram is written in COBOL, there are two ways to call the subprogram, depending on 
the entry point of the subprogram: 


_ If the entry point is the beginning of the procedure division (USING after the division 
heading), entry-name in format 1 must be the same as the PROGRAM-ID of the called 
subprogram. 


- {f the entry point in the subprogram is designated by the ENTRY statement (format 2), the 
entry-name in format 1 must be the same as the entry-name in format 2. 





*Extension to American National Standard COBOL (1968): 
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a If the called program is written in assembler language, entry points are labels specified by 
assembler directive ENTRY or labels of START and CSECT assembler directives. 


2. Format 2, in the called subprogram, designates an ENTRY point; it may not appear in the declaratives 
portion. 


a If the calling program is written in OS/3 COBOL, entry-name in format 2 must be the same as 
entry-name in format 1. 


8 Data-name can be neither qualified nor subscripted. 


s Data-names are the names of 01- or 77-level data items specified in the linkage section of this 
particular subprogram. 


a The sequence of appearance of the operands in the two USING clauses is extremely significant 
because corresponding operands refer to a single common data item; i.e., correspondence is by 
position and not by name. Each reference to an operand in the called program USING clause is 
treated as if it were a reference to the corresponding operand in the USING clause of the calling 
program. 

a An entry name may be enclosed in quotation marks. 

3. Format 3, in the called subprogram, returns control to the calling program. 
= ~—= All OS/3 COBOL subprograms must contain this clause. 


] Control returns to the point in the calling program immediately following the CALL statement. 


a The EXIT PROGRAM and RETURN options are equivalent. RETURN is included for 
compatibility with other COBOL implementations. 


4. See 6.8 for sample calling and called programs. 


6.6.7.3. NOTE Statement 
Function: 


The NOTE statement allows programmers to write commentary to be produced in the listing but not be 
compiled. 


Format: 
NOTE character-string. 
Rules: 
1. Any combination of the characters from the character set may be included in the character-string. 


2. If a NOTE sentence is the first sentence of the paragraph, the entire paragraph is considered a part of the 
character-string, whereas a comment line is not (Table 2—3). 


3. If a NOTE sentence appears as other than the first sentence of a paragraph, the commentary ends with 
the first occurrence of a period followed by a space. 
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6.6.7.4. USE Statement 





Function: 


The USE statement specifies procedures for input/output label and error handling in addition to the standard 
procedures specified by the input/output system. Three format options are available: 


. Label writing and checking 

a Error checking 

] Printer form-overflow 

Format 3 is an extension to American National Standard COBOL (1968). 


Format 1: 





FILE 
AFTER BEGINNING = 
= sass, Sranpene eure | RES 


file-name-1 [, file-name-2] .. . 
INPUT 

1-0 

OUTPUT 


LABEL PROCEDURE ON 


Format 2: 





filename-1 [, file-name-2] ... 
INPUT 

1-0 

OUTPUT 


USE AFTER STANDARD ERROR PROCEDURE ON 


Format 3: 


USE FOR FORM-OVERFLOW ON file-name-1 
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é@ Rules: 


1. A USE statement must immediately follow a section header in the declaratives section of the procedure 
division, and must be followed by a period. The remainder of the section must consist of one or more 
procedural paragraphs that define the procedures to be used. 


2. The USE statement defines the conditions calling for the execution of the USE procedures; the USE 
statement itself is never executed. 


3. When format 1 is used: 


a If the filename option is present, the FD entry for file-name-1 must contain a LABEL RECORDS 
ARE data-name clause (5.2.1.3). 


a If the BEGINNING or ENDING options are omitted, the designated procedures are executed for 
both beginning and ending labels. The ENDING option is not applicable for direct access files 
whose organization is other than sequential. 


a If the REEL or UNIT option is used, the designated procedures are executed for each new reel or 
unit of a file but not for the start or end of the file itself. If the FILE, UNIT, or REEL option is 
omitted, the designated procedures are executed for the reel or unit, whichever is applicable, and 
the file. The REEL option is not applicable to mass storage files and the UNIT option is not 
applicable to files in the random access mode. 


= When the INPUT, OUTPUT, or !-O option is specified, the USE procedure refers to all appropriate 
files except those described with the LABEL RECORDS OMITTED or STANDARD clause. 


. The BEFORE option is not applicable to the OS/3 COBOL but is accepted for compatibility. The 
BEFORE option is processed as if AFTER were specified. 


a For files opened for input, the designated USE procedure is executed only when a user label is 
encountered. This label can be checked by referencing the record defined by the LABEL 
RECORD clause in the FD. If further labels exist they can be accessed by issuing a GO TO MORE 
LABELS verb. User label processing is terminated upon execution of the last statement in the USE 
procedure. 


a For files opened for output, the designated USE procedure is executed after system label 
processing is completed. A user label is written from the record area defined by the LABEL 
RECORD clause after execution of the last statement in the USE procedure. A label is also written 
upon execution of a GO TO MORE LABELS verb and control is then transferred to the beginning 
of the same USE procedure. 


4, When format 2 is used, the USE procedure is initiated when system standard I/O error recovery 
procedures are exhausted. After a format 2 USE procedure is executed, do not access the file in error. 


5. When format 3 is used, control is transferred to the USE procedure when a printer carriage overflow 
condition is detected. See data management user guide, UP-8068 (current version). + 


Overflow is detected during the print and space functions of the printer. If form positioning by 
ADVANCING mnemonic-name is specified, a form-overflow condition does not occur. <—_ 
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6. Input/output statements or the STOP verb with the literal option are not allowed inside USE procedures it 
except for the following verbs: 





a ACCEPT (not from jobstream or system console) 
] DISPLAY 
a WRITE to a printer within a FORM-OVERFLOW procedure 
NOTE: 
At least one DISPLAY to SYSLST must be performed in the nondeclarative portion of the procedure 
division before any are performed with the declarative section. Accepts from the job control stream are 
not permitted inside a USE statement for LABEL PROCEDURE. 

7. ENTRY statements are not allowed within USE procedures. 

8. In a USE procedure, there must be no reference to any nondeclarative procedures. Conversely, in the 
nondeclarative portion, there must be no reference to procedure-names that appear in the declarative 


portion, except that PERFORM statements may refer to a USE declarative in formats 1 or 2, or to the 
procedures associated with such a USE declarative. 


9. See 6.2, declaratives section. 


6.6.8. Interprogram Communications 





Communications between an OS/3 COBOL program (caller) and either an OS/3 COBOL or another language 
program (called) are established by the CALL verb. An entry point in the called program is established by the 
ENTRY verb. 


6.6.8.1. CALL* Statement 
Function: 
In conjunction with the ENTER verb in the main program, communicates with subprogram entry points. 


Format: 


file-name 
CALL entry-name | USING < identifier 
procedure-name 





Rule: 


See the ENTER verb, 6.6.7.2, for information regarding use of the CALL statement. 





*Extension to American National Standard COBOL (1968). 
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@ 6.6.8.2. ENTRY* Statement 


Function: 


The ENTRY™ statement, in conjunction with the ENTER statement in acalled program, establishes an entry 
point. 


Format: 
ENTRY entry-name [USING unqualified-data-name... ] 
Rule: 


See 6.6.7.2. 


6.7. SEGMENTATION 
Segmentation is a method of communication with the compiler to specify object program overlay requirements. 


Since OS/3 COBOL deals just with segmentation of procedures, only the procedure division is considered in 
determining segmentation requirements for an object program. 


6.7.1. Program Segments 


classified as belonging either to the fixed portion or to one of the independent segments of the object program. 


@ When segmentation is used, it is mandatory that the procedure division be written in sections. Each section must be 
Segmentation does not negate the need to qualify procedure-names to ensure uniqueness. 


6.7.1.1. Fixed Portion 


The fixed portion is that part of the object program which is always in main storage. This portion of the program 
cannot be overlaid by any other part of the program. 


6.7.1.2. Independent Segments 


An independent segment is a part of the object program that can overlay, and be overlaid by, another independent 
segment. An independent segment is in its initial state each time it is available to the program. 


*Extension to American National Standard COBOL (1968). 
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6.7.2. Section 
Function: 
SECTION classification is performed through a system of priority-numbers included in the section header. 
Format: 
section-name SECTION [priority-number] . 
Rules: 
1. The priority-number must be an integer ranging in value from O through 99. 
2. If priority-number is omitted from the section header, the priority is assumed to be 0. 


3. Segments with priority-number O through 49 belong to the fixed portion of the object program. 
Segments with priority-number 50 through 99 are independent. 


4. All sections with the same priority-number must be together in the source program, because they 
constitute a program segment. All priority-numbered sections must appear in sequentially ascending 
sequence. Sections with a priority-number out of sequence will be diagnosed and assigned the last valid 


priority-number. 


5. Sections in the declaratives must not contain priority-numbers in section headers. 


6.7.3. Restrictions 


When segmentation is used, the following restrictions are placed on the ALTER and PERFORM statements. 


6.7.3.1. ALTER Statement 


Any GO TO statement in a fixed segment (priority-number 49 or less) can be altered by an ALTER statement 
located in any other segment of the program. A GO TO statement in an independent segment (priority-number 50 or 
greater) can be altered only by an ALTER statement located in the same segment as the GO TO statement. 
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@ 6.7.3.2. PERFORM Statement 


A PERFORM statement that appears in a section with a priority-number less than 50 can have within its range only 
the following: 


a Sections with a priority less than 50. 
a Sections entirely contained in a single segment having a priority-number greater than 49. 


A PERFORM statement that appears in a section with a priority-number equal to or greater than 50 can have within 
its range only the following: 


a Sections with the same priority-number as that containing the PERFORM statement. 


s Sections with a priority-number less than 50. 


6.7.3.3. Linkage Editor Considerations 


When linking a segmented COBOL program, the linkage editor control stream must have a LOADM control 
statement followed by an INCLUDE statement for the root section of the Program (fixed-permanent segment). 


6.8. CALLING AND CALLED PROGRAMS 


@ Run-time communication between a main OS/3 COBOL program and any other separately compiled or assembled 
subprogram is accomplished by the ENTER statement and its associated statements: 


a CALL 

a ENTRY 

s EXIT PROGRAM or RETURN 

s USING clause with PROCEDURE DIVISION heading 

Actual transfer of control from a calling program to a called program is effected via a CALL statement with an 
entry-name identical with the entry-name in the ENTRY statement of the called program. Return of control to the 
calling program is effected by execution of an EXIT PROGRAM statement in the called program. Control is 


returned to the statement following the CALL statement in the calling program. 


A called program need not be an OS/3 COBOL program. In such cases, the COBOL calling program may include 
procedure-names in its USING argument list. 


For a description of register usage requirements, see the CALL, SAVE, and RETURN macro instructions in the 
supervisor programmer reference, UP-8241 (current version). 


6.8.1. Treatment of Data Items 


working-storage sections in the data division of the calling program. In the called program, the data items are 
described, once again, but in the linkage section. !tems described in the linkage section are not allocated main 
storage by the compiler since these items already occupy storage in the calling program, which furnishes their 
addresses to the called program at object time. 


@ Data items declared in the calling program and referenced in the called program are described in the file or 
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Data items common to both programs are shared by use of corresponding USING clauses in each program. The 
operands in the USING clause of the calling program name the data items contained in the data division to be shared 
with the called program. The USING clause in the called program can either follow the PROCEDURE DIVISION 
heading or be contained in an ENTRY statement. The operands must name data items described by 01- or 77-level 
entries in the linkage section. 





The sequence of appearance of the operands in the two USING clauses is extremely significant since corresponding 
operands refer to a single common data item; i.e., correspondence is by position and not by name. Each reference to 
an operand in the called program USING clause is treated as if it were a reference to the corresponding operand in 
the USING clause of the calling program. The calling program is responsible for ensuring physical data alignment if 
the description of a linkage section data item implies a hardware alignment requirement. 


A called program also may be a calling program sharing common data items in its data division (including linkage 
section items) with still another called program. 


6.8.2. Linking 


A sample linker job control stream for calling and called programs is: 


/$ 
LOADM CALLXX 
INCLUDE CALLEROO 
INCLUDE CALLEDOO 
INCLUDE ADDROUT 
/* 





When an object module created by the COBOL compiler is included in a load module, it must be referred to in the 
INCLUDE statement by the 8-character program name assigned by the compiler. The first six characters contain the 
program name specified in the identification division of the source program; the last two characters, decimal 
numbers from 00 to 99, indicate the segment number of the object module within the COBOL program. (All single 
segment programs are numbered 00.) If the program name specified in the source program is less than six characters, 
the compiler pads it with zeros before appending it with the 2-digit segment number. 


6.8.3. OS/3 COBOL CALL/ENTRY Interface 


Figures 6—1, 6—2, and 6—3 illustrate the use of CALL and ENTRY statements. The examples consist of a COBOL. 
program, CALLER (Figure 6—1), which shares data-items and calls upon a COBOL subprogram, CALLED (Figure 
6—2), and an assembly language subprogram, ADDROUT (Figure 6~3), for operations upon the shared data-items. 
Table 6—3 shows the relationship between these programs. 


For more detailed information concerning the linking of subprograms, refer to the system service programs user 
guide, UP-8062 (current version). 
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LINE NO, SOURCE STATEMENT 

e 00001 IDENTIFICATION DIVISION. 
00002 PROGRAM=ID. CALLER. 
00003 ENVIRONMENT DIVISION. 
00004 CONFIGURATION SECTION. 
00005 SOURCE-COMPUTER. UNIVAC-9030. 
00006 OBJECT-COMPUTER. UNIVAC-9030. 
00007 DATA DIVISION. 
00008 WORKING=STORAGE SECTION. 
00009 77 DATA PIC 9999. 
00010 77 DATA2 PIC 99. 
00011 77 CIR PIC 99 VALUE Ol. 
00012 Ol DATAX. 
00013 02 DATA3 PIC 99. 
00014 O02 DATA4 PIC 99. 
00015 PROCEDURE DIVISION. 
00016 PO. 

@ 00017 MOVE CTR TO DATA2, DATA3, DATA4. 
00018 POD. 
00019 ENTER LINKAGE. 
00020 CALL ASMBLRAD USING DATA2, DATAX, DATA]. 
00021 ENTER COBOL. 
00022 DISPLAY ' CALLER RECVD ' DATA2 ' + ' DATA3 ' + ' DATA4 ' =! 
00023 DATA1l * FROM ASMBLRAD '. 
00024 ADD 1 TO DATA4. 
00025 Pl. 
00026 ENTER LINKAGE. 
00027 CALL COBOLADD USING DATA2, DATAX, DATAI. 
00028 ENTER COBOL. 
00029 P3. 
00030 DISPLAY ' CALLER RCVD ' DATA2 ' + ' DATA3 ' + '' DATA4 ' =! 
00031 DATA1 * FROM COBOLADD*. 
00032 P4. IF CIR LESS THAN 12 ADD 1 TO CTR GO TO PO ELSE 
00033 DISPLAY ‘END OF RUN*' STOP RUN. 


& Figure 6—1. Example of Calling Program 
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LINE_NO. SOURCE STATEMENT 
00001 IDENTIFICATION DIVISION. 
00002 PROGRAM-ID. CALLED. 
00003 ENVIRONMENT DIVISION. 
00004 CONFIGURATION SECTION. 
00005 SOURCE-COMPUTER. UNIVAC-9030. 
00006 OBJECT-COMPUTER. UNIVAC-9030. 
00007 DATA DIVISION. 
00008 LINKAGE SECTION. 
00009 Ol DATAX. 
00010 O02 DATA3 PIC 99. 
00011 O02 DATA4 PIC 99. 
00012 77 DATA1 PIC 9999. 
00013 77 DATA2 PIC 99. 
00014 PROCEDURE DIVISION. 
00015 PO. ENTER LINKAGE. ENTRY COBOLADD USING DATA2 DATAX DATAI. 
00016 ENTER COBOL. 
00017 Pl. ADD DATA2 DATA3 DATA4 GIVING DATAI. 
00018 P9, ENTER LINKAGE. EXIT PROGRAM. ENTER COBOL. 


Figure 6-2. Example of Called Program 
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ADDROUT START O 


R1$ 
R2$ 
R3$ 
R4S 
RES 
RES 
RCS 
RD$ 


DUMMY 
DATA2ASM 
DATAXASM 
DATA3ASM 
DATA4ASM 
DATALASM 
ADDROUT 





ASMBLRAD 


PRINT 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
PRINT 
DSECT 
DS 

DS 

DS 

DS 

DS 
CSECT 
USING 
USING 
USING 
USING 
STM 
ENTRY 
LR 

LA 
STM 
STM 
LM 
PACK 
ZAP 
PACK 
AP 
PACK 
AP 


UNPK 
or 





NOGEN Y 
ih 
2 
3 
4 
15 
14 
12 
13 

GEN 4 
CL2 A DSECT IS A DESCRIPTION NOT TO 
OCL4 BE MAPPED SINCE IT WILL RESIDE 
Che ELSEWHERE AT OBJECT TIME 

CL? 

CL4 

DATA2ASM,R2$ R2 WILL BE USED TO COVER DATA2 
DATAXASM,R3$ R3 WILL BE USED TO COVER DATA3/4 
DATA1ASM,R4$ R4 WILL BE USED TO COVER DATA] 

* RFS COVER FOR THIS ROUTINE 
RE$,RC$,12(RD$) SAVE CALLERS REGS IN HIS SAVEAREA 
ASMBLRAD DECLARES ENTRY POINT LABEL 

R2$,RD$ SAVE ADR OF CALLERS SAVEAREA 

RD$, SAVEAREA LOAD RD$ WITH ADDR OF THIS ROUT S-A 
R2$,R2$,4(RD$) SAVE CALLER S-A ADR IN THIS ROUT SA 
RD$,RD$,8(R2S) SAVE THIS ROUT SA ADR IN CALLER SA 
R2$,R4$,0(R1$) LOAD COVER REGS WITH ARG'S 

HOLD2 (2) ,DATA2ASM(2 ) 

ACCUM(3),HOLD2(2) 

HOLD2(2),DATA3ASM(2) 


ACCUM(3 ),HOLD2(2) 
HOLD2(2),DATA4ASM(2) 
ACCUM(3 ) ,HOLD2(2) 


DATA1ASM(4) ,ACCUM(3) 
DATALASM+3,X'FO!' < 





Figure 6-3. Example of Called Assembly Subprogram (Part 1 of 2) 
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L RD$,4(,RDS) ADDR OF CALLERS SA 

LM RES$,RC$,12(RD$) RESTORES CALLERS REGS 

MVI 12(RD$),X'FF' SET CALLED TO RETURNED STATUS 
BR RES 


SAVEAREA DS 18F 

ACCUM DS CL3 

HOLD2 DS CL2 
END 


Figure 6—3, Example of Called Assembly Subprogram (Part 2 of 2) 


Table 6-3. Program/Subprogram Relationships 


| rowine | twee | tanouee | merece | uneton | Comment | 


CALLER Program COBOL Calls COBOLADD 
in CALLED. Calls 
CALLED coBot 


ASMBLRAD in 
7 ul 












Sets values in data- 
items and calls on 
subprograms to add 
values and provide 
results. Results are 
displayed on console. 


Note that any 01- or 77- 
level data-item can be 
used as Operand in CALL 
statement (shared with 
subprogram). 






















ADDROUT. 





















Items to be shared with 
a calling program are 
described as 01- or 77- 
level data-items in 
linkage section. 


Adds values in 
several shared data- 
items and leaves 
results in a shared 
data-item. 


Entry point is 
COBOLADD. Exit 
accomplished via 
exit program. 





























Same as CALLED 
above. 


items to be shared with 
a calling program may be 
described within a DSECT. 
The arguments passed 
represent the address of 
each item in the calling 
program storage. 






Entry point is 
ASMBLRAD. Exit 
accomplished via 
BR RES. 













@ PART 3. COMPILER FEATURES AND CAPABILITIES 
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7. Compiler Options and 
Library Statements 


7.1. COMPILER OPTIONS 


In SPERRY UNIVAC Operating System/3 (OS/3) COBOL, the optional PARAM statement provides a method of 
presenting parameters to the compiler to exercise specific COBOL options. The format of the PARAM statement is: 


//APARAMAparameters 
When PARAM statements are used, they must be positioned immediately following the EXEC job control statement 
in the compilation job control stream. The PARAM statements are printed on the first page of the compiler output 


listing. 


lf a PARAM statement format error or an illegal parameter is encountered, a system console message is produced 
@ and the compilation is terminated. 


If no PARAM statements are supplied, the compiler produces a source program listing and a source program 
diagnostic report, and generates an object module. 


Only one blank may precede the P of the word PARAM. 
Absence of PARAM statements implies: 


//APARAMALST=(S) 


7.1.1. List Options 
Format: 

//LPARAMALST=(spec 1.,...,spec n) 
where: 


spec 1,..., spec n 
Is one or more of the following: 


A Activate ambiguity mode of reference resolution. Normally, references are resolved by the first 
appropriate definition encountered for the referenced name. The definition search process begins 
with the first entry in the appropriate division and continues through to the last entry in that 


& division. 
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In the ambiguity mode, the definition search process is not terminated when the reference is 
resolved, but continues in an attempt to uncover and report duplicate definitions. When the search 
of the division that corresponds to the reference type is completed, the other divisions also are 
searched to determine if the highest possible qualifier rule has been violated. Diagnostic messages 
151 through 154 report the presence of ambiguous references/definitions. 





Cc Produce storage map and cross-reference listing for the data division and procedure division. 


D Produce data divisions alphabetized cross-reference listing. 


E Ignore printer mismatch errors during compilation. 


I Inhibit listing of lines included from COPY libraries. 
K Inhibit source item sequence number checking (columns 1 through 6 of the source item). 


L Single-space all listings requested. If no listings were requested, a single-spaced diagnostic listing is 
produced. 


M Produce data division storage map listing. 

N Inhibit all listable output except PARAM statement listing. 
O Produce object code listing. 

P Produce procedure division storage map listing. 


R Allow quote character to be used in a nonnumeric literal bounded by apostrophes. 





S Produce source program listing. 
T Allow apostrophe character to be used in a nonnumeric literal bounded by quotes. 


WwW Inhibit listing of all precautionary diagnostics. These errors are identified by a severity code of P. 


x Produce procedure division alphabetized cross-reference listing. 


NOTES: 


7, When LST=(C,M), only the data division storage map has cross-references, When LST=(C.P), only the 
procedure storage map has cross-references. 


2. LST=R and T are not allowed within the same program. Use of either option overrides the 
interchangeability of the apostrophe and quotation mark. 


7.1.2. Output Options 


Format: 
//APARAMAOUT=(spec 1,...,spec n) 
where: 


spec 1,...,spec n 
Is one or more of the following: 





Cc Conversion mode. 


K The word COMP or COMPUTATIONAL is permitted in the USAGE clause and is treated as 
COMP-3 or COMPUTATIONAL-3. 


L Inhibit generation of linker control statements in object module. 








8057 Rev. 2 
UP-NUMBER 









SPERRY UNIVAC Operating System/3 7-3 


PAGE 






UPDATE LEVEL 


N Inhibit generation of object module. 


P Disregard mismatch errors for all object program print files. 
R The word QUOTE is translated as quotation marks. 


T Inhibit compiler generation of a transfer address in the object module. When invoked, the program 
cannot be executed unless it is called. 


V Suppress automatic page overflow in the object program. 


7.2. SOURCE AND COPY LIBRARY INPUT SPECIFICATIONS 


The following PARAM statements describe the method of reading a source program either from the job control 
stream or from a disc library. 


The formats for the source and copy library PARAM statements are presented in the following paragraphs. 


7 Source library Input 


Format: 
//APARAMAIN=program-name/file-name 


where: 


program-name 
Isa 1- to 8-character name of source program to be compiled. 


file-name 
Is a 1- to 8-character name used to identify the file on which the source program resides. This 


name must appear on the LFD job control statement used to define the device to the job control 
program. 


If the file-name is omitted, the name $Y$SRC is automatically supplied. 
a Copy Library Input 
Format: 
//KAPARAMALIN=file-name 
where: 


file-name 
ls a 1- to 8-character name used to identify the file on which the COPY library resides. This name 


must appear on the LFD job control statement used to define the device to the job control 
program. 


if the file-name is omitted, the name COPY$ is automatically supplied. 


The COPY element-name is supplied in the source program via the COPY clause. 


7.2.1. Object Module Version/Revision Number 
Format 1: 


| //APARAMAVER=vv/tr 
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where: & 


Is the version number. 


rr 
Is the revision number. 


These numbers are applied to compiler output module. 


If the source program is coming from a library and this PARAM statement is not specified, the version number from 
that library module is used. 


If the PARAM statement is not specified and the source program is coming from the job control stream, the version 
and revision numbers 00/00 are used. 


Format 2: 
//APARAMA OBJ=file-name 
where: 


file-name ; 
ts the file where the object mode generated is to be placed. 


If this PARAM statement is omitted, the generated object module is placed in the temporary job run library file 
($Y$RUN), 





7.2.2. Compiler Source Library Input and Copy Library Input 

The source program may be read from the job contro! stream or a disc library. Any copy library modules referenced 
by the source program may be read from a disc library. Any library structures to be accessed by the compiler must 
have been created by the OS/3 disc librarian. 

Any library structures to be accessed by the compiler must be defined in the job contro! stream, and the LFD names 
must appear on PARAM statements (keyword IN for the source library; LIN for the copy library). If no copy library 
modules are referenced by the source program, the copy library need not be defined. 


Example: 


Source and copy library definitions: 





//ADVCA5O // VOL dspxxx 
Job control statements for 
> //ALBLAfile-id-1 //ALFDAfile-name-1 source input 
ee HANOLAdspxxx Job control statements for 
oe /ALBLAFile-id-2 //ALFDAfile-name-2 cad aa 
with PARAM statements: 
//APARAMAIN=program-name/file-name-1 Source file 


//APARAMALIN=file-name-2 Copy file 
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© In the foregoing example, file-name-1 and file-name-2 are programmer-supplied names. File-id-1 and file-id-2 are 
file-id names used at the time the disc library was created. Program-name is the name of the source library module 


that contains the source program. 


7.3. LIBRARY 


The library module specifies text to be copied from the OS/3 COBOL library, which contains text available to a 
source program at compile time. The effect of the compilation of library text is the same as if the text were actually 
written as part of the source program. OS/3 COBOL library text is placed in the COBOL library as a function 
independent of the OS/3 COBOL program. 


The following paragraphs contain library information applicable to the OS/3 COBOL user. For a complete discussion 
of the COBOL library module, see the fundamentals of COBOL — language manual, UP-7503.1 (current version). 


7.3.1. Using the COPY Statement 


The COBOL library contains text which, through the use of the COPY statement, may be included into a COBOL 
source program during compilation. The rules for the COPY statement are given in 6.6.7.1. 


In addition to referencing the library module through the COPY statement, the programmer must define the device 
and file which contain the library module in his job control stream. The LFD name given to this file also must be 
present on a PARAM statement with keyword LIN. 


& The compiler performs no editing of library modules. Whatever is contained in the library under the specified 
library-name is copied into the program. Lines of code taken from the library are marked with a C to the right of the 
line number on the source listing. 


Example: 


if a COBOL program contains the following lines of code: 


FILE SECTION. 
FD FILEO1 COPY LIB-FDO1. 
01 TAX-A. 


and the assigned library file contains a module named LIB-FDO1 with the lines: 


LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 1 RECORD 
DATA-RECORD IS TAX-A. 
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at compilation time the source listing would be: 





LINE NO. SOURCE STATEMENT 


00033 FILE SECTION. 
00034 FD FILEO1 COPY LIB-FDO1 


00035C LABEL RECORDS ARE STANDARD 
00036C BLOCK CONTAINS 1 RECORD 

> 00037C DATA-RECORD IS TAX-A. 
00038 01 TAX-A. 


The effect on the program is the same as if the programmer had written: 


FILE SECTION. 

FD FILEO1 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 1 RECORD 
DATA-RECORD IS TAX-A. 

01 TAX-A. 





PARAM statements for use with the COPY statement are defined in 7.2.2. 





8057 Rev. 2 
UP-NUMBER 















SPERRY UNIVAC Operating System/3 8-1 


UPDATE LEVEL 


8. RERUN Clause 


8.1. GENERAL 


The RERUN facility of the SPERRY UNIVAC Operating System/3 (OS/3) provides a means of recording the status 
and environment of an OS/3 COBOL program at a specified point in the processing of that program. Once recorded, 
this status and environment may be reestablished and execution of the COBOL program may be resumed from this 
point. The RERUN facility causes linkage between the COBOL program and the checkpoint facility. The restart 
ability is provided by the original job control stream with the addition of an RST job control statement placed 
immediately prior to the JOB job contro! statement. 


8.2. RERUN CLAUSE 


The RERUN clause may appear in the |-O-CONTROL paragraph of the environment division. The format of the 
RERUN clause is: 


RERUN ON external-name EVERY integer RECORDS OF file-name-1 [, file-name-2] 


The external-name in the format must appear in a SELECT entry. The device specified by external-name is the 
RERUN receiver, which receives the checkpoint records containing the status and environment of the COBOL 
program. File-name-1, file-name-2, etc., are RERUN controllers and dictate when the checkpoint records are to be 
issued. The same RERUN receiver may appear in any number of RERUN clauses; a RERUN controller may appear 
in only one RERUN clause. The allowable range for integer is 1 through 9,999,999. 


8.3. CHECKPOINTING 


Checkpoint records are issued whenever integer records occur for a RERUN controller. The RERUN controller 
record counter is set to 0 when the controller is opened and incremented by 1 before each READ, WRITE, or 
INSERT statement is issued to the controller. When the RERUN controller is opened as I-O, a WRITE statement 
does not cause the record counter to be incremented. 


lf the RERUN receiver is a tape device, it may be dedicated to receiving checkpoint records or it may receive other 
program output. If the RERUN receiver is dedicated, it is opened automatically with the assumption that label 
records are standard. If the RERUN receiver is being shared with other program output, it is the programmer's 
responsibility to ensure that the receiver is opened for OUTPUT whenever checkpoint records are issued. Checkpoint 
records are not issued if the receiver is not open for OUTPUT. 


If the receiver is a disc device, it must be dedicated to receiving checkpoint records. The device must appear in a 
SELECT entry but not in an FD entry. 
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8.4. RESTARTING & 





To initiate the restart of a previously checkpointed program, an RST job control statement must immediately 
precede the JOB job control statement in the original job control stream; the job may then be restarted. The format 
of the RST job control statement is: 

// RST filename, checkpoint-id, number 


where: 


filename 
Is the name of the checkpoint file. 


checkpoint-id 
Is the checkpoint number identifying the checkpoint to be used to restart the job. 


number 
\s the job step number within the job to be restarted. 
8.5. NOTES AND RESTRICTIONS 
a A RERUN controller may have only one RERUN receiver and may appear in only one RERUN clause. If more 
than one receiver is specified for a RERUN controller, the compiler writes the checkpoint records on the 


first-mentioned external-name and ignores the second one. 


a ACCESS and ORGANIZATION, if specified for a RERUN receiver, must be SEQUENTIAL. 





a If the RERUN receiver is a magnetic tape unit, SD must not be specified. If FD is specified, the tape must have 
standard labels and a block size greater than or equal to 20 bytes. 


a ASCII tape files are not permitted. 
7 The USE declarative statement does not apply to a dedicated RERUN receiver file. 


. When errors occur on RERUN receiver files, diagnostic messages are displayed and processing continues; 
however, no further attempts are made to issue checkpoint records to that receiver. 
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9. Use of ACCEPT and DISPLAY Statements 


9.1. ACCEPT STATEMENT 
The format for the ACCEPT statement is: 


mnemonic-name 








F oor DATE* 
ACCEPT identifier {FROM DAY* 
TIME* 


9.1.1. Job Control Stream ACCEPT 


In the SPERRY UNIVAC Operating System/3 (OS/3), COBOL programs are permitted to access their control 
@ streams to retrieve PARAM statements and data images. 


9.1.1.1. 80-Column Card ACCEPT 


An ACCEPT for which the FROM option is not specified or an ACCEPT for which mnemonic-name is associated 
with SYSIN permits retrieval of data images and PARAM statements from the job control stream. A maximum of 
4095 bytes of data may be retrieved with a single ACCEPT statement. The number of bytes accepted is not required 
to be a multiple of 80. Two ACCEPT statements of 20 character items require two cards. 


Job Control Stream Format: 
//KEXECAoperand1, operand 2, operand 3 —_ 
The EXEC statement (execute) is the last statement processed by job control before the execution of the 
program (job step) named in the statement. PARAM statements, if any, must directly follow the EXEC 
statement. 
/$ 
The /$ statement is used to indicate the beginning of a stream of data that is to be diverted to a file for 
subsequent retrieval by the job. All statements following the /$ statement up to and including the first /* 


(end-of-data) statement are filed on the resident direct access storage device. Although this statement is 
required by job control, it is not transferred to the COBOL program. 


*Extension to American National Standard COBOL (1968). 





8057 Rev. 2 SPERRY UNIVAC Operating System/3 as 


UP-NUMBER UPDATE LEVEL | PAGE 


/$ 
DATA IMAGE 1 
DATA IMAGE 2 





DATA IMAGE n 
/* 


The /* statement indicates the end of a data stream introduced with the job control stream. This statement is 
required by job control but is not transferred to the OS/3 COBOL program. An attempt to retrieve this 
statement results in an error condition in the COBOL program. 


Job Control Stream Errors: 
When the job control stream is unable to deliver an image to the COBOL program (that is, if the next 
sequential record in the job control stream is not a PARAM statement, or a data image), control is transferred 
to the object time error subroutine. The subroutine logs the following message on the system console: 


CE01 ERROR-DATA FOR ACCEPT NOT AVAILABLE 


If the COBOL program attempts to retrieve a /* image from the job control stream, an error condition results. 
Control is transferred to the object time error subroutine. The subroutine logs the following message on the 
system console: 


CE02 ERROR-INSUFFICIENT DATA FOR ACCEPT 





These errors abort the run. 


ACCEPTs from the job control stream are not permitted inside a USE for LABEL PROCEDURE. 


9.1.1.2. 96-Column Card ACCEPT 


An ACCEPT with mnemonic-name associated with SYSIN-96 allows the COBOL program to retrieve embedded data 
cards from the job control stream when using 96-column cards with data extending beyond column 80. When the 
job control stream is punched on 96-column cards, but the embedded data is contained in only the first 80 columns, 
the SYSIN-96 option should not be used. 


All rules regarding job control stream format and job control stream errors (9.1.1.1) apply to ACCEPT with 
SYSIN-96. 


9.1.1.3. 8413 Diskette ACCEPT 


An ACCEPT with mnemonic-name associated with SYSIN-128 allows the COBOL program to retrieve embedded 
data images from the job control stream when using 8413 diskette with data extending beyond position 80. When 
the job control stream is recorded on 8413 diskette but the embedded data is contained in only the first 80 columns, 
the SYSIN-128 option should not be used. 


All rules regarding job control stream format and job control stream errors (9.1.1.1) apply to ACCEPT with 
SYSIN-128. @ 
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9.1.2. Console ACCEPT 


An ACCEPT with mnemonic-name associated with SYSCONSOLE allows the program to receive data from the 
system console. 


The maximum number of characters that may be entered for a single ACCEPT is 60. 


When the ACCEPT statement is encountered in the COBOL program, the following message is displayed: 


CA10 ACCEPT READY 
The operator, when replying to a system console ACCEPT, must enter “message number”’ followed by the text. 


When the operator types less than the number of characters expected, the remaining positions are space-filled 
(X‘40’). 


The identifier must be implicitly or explicitly defined as USAGE IS DISPLAY (5.3.5). 


9.1.3. Current Date ACCEPT 


An ACCEPT with mnemonic-name associated with SYSDATE or an ACCEPT with the DATE option makes the date 
available to the program in the format yymmdd (PIC 9(6)). This information is moved to the identifier under the 
rules for a COBOL MOVE (6.6.3.2). 


When the date is set through the job control stream (//ASETADATE, YY/MM/DD) the date is stored in the user’s job 
preamble. If the date is not set via the job control stream, job control moves the date from the system information 
block (SIB) into the user’s job preamble. The date in the SIB is entered via the system console by the operator. This 
is accomplished by using the operator SET command to enter the current data. 


By setting the date from the job control stream, the user can predate or postdate jobs. 


9.1.4. Time of Day ACCEPT 


An ACCEPT with mnemonic-name associated with SYSTIME or an ACCEPT with the TIME option makes the time 
of day available to the program in the format hhmmss00 (PIC 9(8)), where hh is the hour and mm is the minute 
(hhmmss does not exceed 235959). This information is moved to the identifier under the rules for a COBOL MOVE 
(6.6.3.2). 


9.1.5. Julian Date ACCEPT 


An ACCEPT with the DAY option makes the date available to the program in the format yyddd (PIC 9(5)). This 
information is moved to the identifier under the rules for a COBOL MOVE (6.6.3.2). For information on setting the 
date with the job control // SET DATE command, see 9.1.3. 


9.1.6. UPSI Byte ACCEPT 


An ACCEPT with mnemonic-name associated with SYSSWCH permits the COBOL program to access the user 
program switch indicator (UPS!) byte which is the last byte of the 12-byte communications region in the job 
preamble. An 8-byte item is created containing EBCDIC 0 to represent the OFF status and an EBCDIC 1 to 
represent the ON status of the individual UPSI bits/switches, respectively (e.g., if SYSSWCH-O and SYSSWCH-2 are 
ON and all others are OFF, the ACCEPT statement makes available to the program an 8-character item containing 
10100000). 
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9.1.7. Communications Region ACCEPT 





An ACCEPT with mnemonic-name associated with SYSCOM allows the COBOL program to receive information 
from the communications region in the job preamble. When this ACCEPT is encountered, the 12-byte 
communications region is moved to the 12 bytes described by the identifier. It is through the communications 
region that one job step may communicate with a following job step. 

NOTE: 


The twelfth byte of the communications region is the UPS! byte. 


9.2. DISPLAY STATEMENT 


The format for the DISPLAY statement is: 


DISPLAY adentifior! aontitier2 , .. [UPON mnemonic-name] 
——_——  ) literal-1 , literal-2 —_ 


9.2.1. Console DISPLAY 


y A DISPLAY with mnemonic-name associated with SYSCONSOLE permits the COBOL program to display messages 
“upon the system console. A display on the system console is assumed if the UPON option is omitted. The sum of the 
sizes of operands may not exceed 250 characters. The data is displayed a line at a time. Each line is prefixed with the 

code CD10 and followed by a maximum of 55 characters of the contents of the operands. 





All displays are action-type messages, and the operator must respond with a GO command. 


9.2.2. Log File DISPLAY 


A DISPLAY with mnemonic-name associated with SYSLOG permits the COBOL program to display messages to the 
system console and the system log file. Message size is limited to 55 contiguous characters. COBOL displays are 
prefixed with the code CD11. This display is an informational-type message and does not require the operator to 
respond with a GO command (unlike SYSCONSOLE). 


9.2.3. UPSI Byte DISPLAY 


A DISPLAY with mnemonic-name associated with SYSSWCH permits the COBOL program to change the entire 
UPSI byte. 


The eight bytes described by the identifier are converted into individual bit settings, and the resultant eight bits are 
stored in the UPSI byte. A value of X’F 1‘ causes a bit (UPSI switch) to be turned ON (1 value). 


The UPSI byte may be initialized prior to execution by the SET statement in the job control stream (//ASETAUPSI, 
switch-setting). 
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& 9.2.4. UPSI Bit DISPLAY 


A DISPLAY with mnemonic-name associated with SYSSWCH-n allows the COBOL program to change an individual 
switch (bit setting) in UPSI. The eight switches in UPSI are numbered 0 through 7 from left to right. A 1-byte 
identifier (PIC X) is used to alter UPSI switch-n. A value of O (X‘FO’) causes the switch to be turned OFF (0 value); 
any other value causes the switch to be turned ON (1 value). 


9.2.5. Communications Region DISPLAY 

A DISPLAY with mnemonic-name associated with SYSCOM allows the COBOL program to alter the contents of the 
communications region. The 12 bytes described by the identifier are moved into the 12-byte communications region 
in the job preamble. 

The communications region is initialized to binary 0's prior to the first job step by job control. Through use of the 


SET statement (//ASETACOMREG, character-string), the communications region may be set to an initial value. 
Information may be passed from job step to job step in the region. The region is not changed during job steps. 


9.2.6. Printer Listing DISPLAY 

A DISPLAY with mnemonic-name associated with SYSLST permits the COBOL programmer to display messages on 
the printer. Displays are in 120-character multiples and are printed after advancing paper one line. For signed 
numeric items, a separate sign character is displayed immediately following the operand. 


@ The LFD name assigned to the printer in the job control stream must be SYSLST. 


At least one DISPLAY associated with SYSLST must be performed in the nondeclarative portion of the procedure 
division before any are performed within the declarative portion. 
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10. Table Handling 


10.1. GENERAL 


The table-handling module provides a means of defining contiguous data items in a tabular form, thereby permitting 
easy access to any item regardless of its position in the table. 


This section contains the methods of table definition and referencing available to the COBOL user in the SPERRY 
UNIVAC Operating System/3 (OS/3). For a complete discussion of table handling see the fundamentals of COBOL 
— table handling manual, UP-7503.2 (current version). 


10.2. DEFINING A TABLE 


& Each data item in a table (called a table element) must be the subject of an OCCURS clause in the data description. 
This clause specifies the number of times that the table element appears in the table. 


To define a 1-dimensional table, am OCCURS clause is written as a part of the data description for the repeated item. 
Any practical number of occurrences may be specified (5.3.3). 


Defining a 1-dimensional table within each occurrence of a table element gives rise to a 2-dimensional table. This is 
done by writing an OCCURS clause for a data item subordinate (i-e., with a numerically larger level number) to 
another item for which an OCCURS clause was written. Tables with up to three dimensions can be defined in this 
manner in OS/3 COBOL. Each dimension must be defined by an OCCURS clause, and must be defined on a 
different hierarchical level. 


10.3. TABLE REFERENCE 
To reference a table element, it is necessary to specify which occurrence of the table element is intended. 


Occurrence numbers are specified by one of two methods: subscripting or indexing. In either method, the reference 
is made by immediately following the data-name with a set of occurrence specifications (subscripts or index-names) 
enclosed in parentheses. 


Up to three subscript or index levels may appear in the reference, depending upon the number of dimensions 
involved. One subscript or index level for each OCCURS clause must be in the defined hierarchy containing the 
element name, including the one for the element name. Multiple subscripts and index-names are written left to right 
in descending order of inclusiveness. 
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10.4. SUBSCRIPTING 





Definition: 


Subscripting is a technique used to reference individual table elements within a table of like elements not 
assigned individual data-names. A subscript value identifies elementary items in the table. 


Format: 
data-name (subscript-1 [, subscript-2 [, subscript-3] ] ) 
Rules: 


1. The subscript value must be a positive or unsigned integer and may be represented as a numeric literal or 
as a data-name defined elsewhere as an elementary numeric data item with no character positions to the 
right of the assumed decimal point. Data-name subscripts may be mixed with numeric literal subscripts 
within a reference. 


2. The lowest valid subscript is 1; the highest valid subscript is the number of item occurrences specified in 
the OCCURS clause. The area allocated, multiplied by the number of occurrences, cannot exceed 
65,535. 


3. References are made to individual items within a table of homogeneous elements by specifying the name 
of the table, followed by one or more spaces, followed by its related subscripts in parentheses. A left 
parenthesis may not be followed by a space; a right parenthesis may not be preceded by a space. 





4. When more than one subscript is used in a reference, each must be separated, within the parentheses, by 
a comma and a space. 


10.5. INDEXING 
Definition: 


Indexing is a technique used to reference individual table elements within a table of like elements not assigned 
individual data-names. An index-name contains the occurrence number of a table element used for: 


J direct indexing by using the index-name as a subscript; or 


a relative indexing by appending to the index-name the + or — operator followed by an unsigned integer. 
This integer must not be 0. 
Format: 


data-name (index-name-1 [ {+} integer-1] 
[, index-name-2 [ {+} integer-2] ] 
[, index-name-3 [ +} integer-3] ]) 


Rules: 


1. Index-names are defined by the INDEXED BY option in the OCCURS clause. Further data description is 
not used because allocation and format are hardware-dependent. The index-name may be used only in 
reference to the table element described by the OCCURS clause or to one of its subordinate items. S 





2. Index-names are initialized and modified in the object program by the SET statement. 
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& 3. References are made to individual items within a table of homogeneous elements by specifying the name 
of the table element, followed by its related index-names in parentheses. 


4, When more than one index is used in a reference, each must be separated, within the parentheses, by a 
comma and a space. 


5. A data item in a file can be described by a USAGE IS INDEX clause. This data item value can then be 
transferred to an index-name, without conversion by the SET statement. 
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11. Processing Techniques for 
Direct Access Devices 


11.1. INTRODUCTION 


This section describes the techniques available to the COBOL programmer for processing files assigned to direct 
access devices. The technique chosen to process a particular file depends upon the file organization and the manner 
in which records within the file are accessed. Each file organization has its particular advantages and disadvantages. 
No attempt is made in this section to select one organization over another. In selecting a file organization, the user 
should consider factors such as device characteristics, file size, activity, growth potential, etc. This section is 
intended to inform the user of the capabilities, construction, and usage of the file organizations available on direct 
access devices. 


11.2. FILE ORGANIZATION 

@ File organization specifies the format and control of the logical file structure. Once a file is created under a specific 
organization, that organization cannot be altered for subsequent file processing. COBOL provides three classes of file 
organizations: 

1. Sequential 

2. Relative 


3. Indexed 


A file organization is specified by the ORGANIZATION clause in the SELECT entry for this file. 


11.2.1. Sequential Organization 


The logical file structure is such that each logical record (except the first and last) has a unique predecessor and 
unique successor record. The predecessor-successor relationship was established by the order of the WRITE function 
when the logical file structure was created. The control of placing records to, or retrieving records from, a 
sequentially organized file is the predecessor-successor relationship; i.e., the sequence in which records are created is 
the sequence in which they are retrieved. No other control information is required to access records from sequential 
files. 
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11.2.2. Relative Organization ® 


The logical file structure is characterized by the physical relationship (location) of each record to the first record; 
i.e., logical record 1 occupies the first physical location in the file, record 2, the second, etc. In addition to 
sequential processing capabilities, records in a relative-organized file can be read or written directly by specifying the 
record number of the desired record. This control of the file is referred to as random access. For example, the 
fifteenth record of a relative-organized file may be accessed directly, whereas access to the fifteenth record of a 
sequentially organized file can be achieved only after retrieving the first 14 records. The ability to randomly access 
records provides an advantage over sequentially organized files; however, the data management techniques used with 
relative files restrict the format of records to fixed-length, unblocked. 


11.2.3. Indexed Organization 


Indexed files are comprised of two elements: the prime data set consisting of the logical records of the file and an 
index which expedites access to records in the prime data area. Each logical record of the file contains a field 
designated as the key. The key is the control which the access method uses in constructing the file as well as for 
subsequent retrievals. The access method uses a search of the index to locate the address of the record containing the 
requested key. The access method requires that indexed files be created in key sequence; hence, the name, indexed 
sequential. Records may be added to an existing indexed file; each added record is placed in overflow areas and the 
sequence of the file is maintained logically. Retrieval time of records increases as the number of records in overflow 
increases. Periodic reorganization of indexed files should be practiced to alleviate this condition. 


11.3. ACCESS METHODS 


Three modes of access (the manner in which records are read or written to a file) are available to the COBOL 
programmer: sequential access, random access, and extended access. 





11.3.1. Sequential Access 
Sequential processing involves the serial placement or retrieval of records to or from a file. The control in a 
sequential access method is the order in which records are written to or read from a file. No control information 


(key) need be supplied by the programmer to the access method (data management) other than the request to read 
or write a record. Any file organization can be accessed sequentially. 


11.3.2. Random Access 
Random processing assumes no serial dependency of records within a file. Each request to access a record is treated 


individually, without regard to prior requests. Information (key) is supplied at the time of request to designate the 
desired record. Random access is only available on files with relative or indexed organization. 


11.3.3. Extended Access 


Extended processing indicates that random and sequential access may be mixed. It is only available on files with 
indexed organization. 


11.4. CLAUSES REQUIRED FOR FILE PROCESSING 





The specification of file organization, access method, and OPEN usage (input, output, I/O) dictates the file 
processing technique. Each file processing technique is described, in turn, with emphasis on the COBOL clauses 
required to define the file, and the effects these clauses have during file processing. Refer to Table 11—8 for a 
summary of the following information. 
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@ 11.4.1. Sequential File Processing 

The following COBOL clauses are used when processing sequentially organized files: 

1. ORGANIZATION IS SEQUENTIAL 
The ORGANIZATION {S SEQUENTIAL clause states that the file is organized in a serial manner. Records are 
accessed one after the other. Sequential organization is assumed if this clause is omitted. Keys are not allowed 
with sequential files. 


2. ACCESS MODE !S SEQUENTIAL 


The ACCESS MODE !S SEQUENTIAL clause specifies the manner in which the records are to be written or 
retrieved from the file. Only sequential access is permitted indicating serial retrieval. 


3. RECORDING MODE IS j f } 
F signifies fixed mode and V signifies variable mode. Fixed-length or variable-length records may be blocked or 
unblocked. 
integer-n AREA 
4. RESERVE ae \ ALTERNATE [4 AREAS 


The RESERVE ALTERNATE AREAS clause indicates the number of additional I/O areas desired. Omission 
of the clause results in the allocation of one additional !/O area. tf NO is specified no additional area is 
allocated. The only allowable integer is 1. 


5. BLOCK CONTAINS integer-n ‘ CHARACTERS \ 


RECORDS 


Indicates the number of records or characters per block. The actual space allocated to an I/O area is always a 
multiple of 256 bytes. 


The following input/output statements are applicable to sequential files: 
1. OPEN INPUT file-name 


The OPEN INPUT statement indicates that the file operates in a read-only mode. Standard labels are checked 
and user labels, if specified, are made available to the USE for beginning label procedure. 


2. OPEN OUTPUT file-name 


The OPEN OUTPUT statement indicates that the file will operate in a write-only mode. Standard labels are 
written and user labels, if specified, are made available to the user for beginning label procedure. 
3. OPEN I-O file-name 


The OPEN I-O statement indicates that the file is to be updated. Each WRITE statement must be preceded by 


a READ statement. Alteration of record length, insertion of new records, or deletion of existing records is not 
permitted. 


4, READ file-name RECORD AT END imperative-statement 
The READ AT END statement causes the next sequential record in the file to be made available (after 


deblocking), or if the end of file is detected, performs the special imperative statement following the AT END 
clause. 
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5. WRITE record-name [; INVALID KEY imperative statement] 


The WRITE statement causes the specified record to be written in the next sequential area of the file (after 
blocking). An INVALID KEY condition occurs when there is insufficient space in the file to add another 
record. 


6. CLOSE file-name 


The CLOSE statement causes orderly termination of file processing. (At the end of the file or volume, user 
labels are checked and created if specified.) 


11.4.2. Relative File Processing 
The following COBOL clauses are used in processing relative organized files: 
1. ORGANIZATION tS RELATIVE 


The ORGANIZATION IS RELATIVE clause designates the file as relatively organized. The file is accessed via 
relative record number. The ORGANIZATION IS RELATIVE clause causes data management relative access 
method routines to be linked into object program. This is a required clause. 


2. ACCESS MODE IS { eee \ 


SEQUENTIAL 


The ACCESS MODE clause specifies the manner in which records are written to or retrieved from the file. 


a. The RANDOM option indicates no serial dependency of record processing. The relative record to be 
read, written, or sought is specified by the contents of the actual or relative key. 


b. The SEQUENTIAL option demands serial processing of records to or from the file and requires no key 
when accessing records. Sequential is assumed if this clause is omitted. 


3. RECORDING MODE IS F 


Only fixed-length record format is available for relative organized files. 


4. BLOCK CONTAINS integer-n { RECORDS f 


RECORDS 


Relative files may not be blocked. This clause is not required. Space allocated to the !/O area is a multiple of 
256 bytes. 


{ ACTUAL 


RELATIVE \ KEY IS data-name 


The ACTUAL or RELATIVE KEY IS clause specifies the data-name containing the relative record number to 
be read, written, or sought. This field is set by the programmer and/or the data management access method 
under the following conditions: 


a. Random access 


Programmer moves a relative record number to the field prior to every READ, WRITE, or SEEK verb. 
The contents of the field are unchanged after execution of the |/O command. 
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b. Sequential access 


The contents of the actual or relative key are not required for READ or WRITE statements; therefore, 
the field is ignored by the data management access method. Pointers to the next sequential record are 
maintained by the access method while advancing through the file. After execution of a READ or 
WRITE statement, the contents of the actual key reflect the relative record number of the record just 
processed. Under sequential access, the programmer may issue a SEEK statement to position the file to a 
particular record. In this case, the programmer's relative record number is moved to the actual key prior 
to issuance of the SEEK statement. This technique of issuing a SEEK statement before each READ or 
WRITE statement has the effect of randomly accessing a relative file defined under sequential access. 


Cc. File open output (either access method) 


In the event that file preparation is requested on output files, the actual key should contain the relative 
record number on which file preparation is to begin. The file is prepped from this point to the end of the 
user’s file extent. 


NOTE. 


!t is the programmer’s responsibility to ensure that the actual key contains the relative record number 
prior to opening the file. 


APPLY FILE-PREPARATION ON file-name 


The APPLY FILE-PREPARATION clause specifies the relative-organized file name on which file preparation is 
required. For relative-organized files, file preparation consists of writing initializing data on each track of the 
user’s extent, starting at the relative record number contained in the actual key location and proceeding to the 
end of the user’s extent. This initializing data, required by data management access methods, consists of an 
8-byte count field plus a dummy record of length equal to the fixed size of records within the file. The 
dummy record consists of an X‘FF’ followed by all 0’s up to a maximum of 255 bytes. (If the record size is 
greater than 256, undetermined data follows byte 256.) This file prepping guarantees that a physical record 
exists in every possible area of the user’s extent, making it possible to access these record areas directly 
(randomly). 


When the initial allocation of disk space is exhausted, relative files are not extended automatically. If APPLY 
FILE PREPARATION is specified and the relative key data item contains a record number one higher than the 
highest record in the file (i.e., the first record in the next extent), the file is extended by one secondary 
increment of disk space when the OPEN OUTPUT statement is executed. 


NOTE: 


For initial creation of a relative file, the programmer should set the ACTUAL KEY field to 1 prior to opening 
the file. 


The following input/output statements are applicable to relative files: 


OPEN INPUT file-name 


The OPEN INPUT statement indicates that the file is used in a read-only mode. Standard labels are checked 
and user labels, if specified, are made available to the USE for BEGINNING LABEL procedure. For sequential 
access, the file is positioned to the first record. 


OPEN OUTPUT file-name 


The OPEN OUTPUT statement indicates that the file is used in a write-only mode. The file is formatted if the 
APPLY FILE-PREPARATION clause was specified starting at the record number contained in actual key and 
proceeding to the end of the user’s extent. The USE for BEGINNING LABEL procedure is executed if 
specified. The file is positioned to the first record for sequential access. 
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OPEN 1-0 file-name 


The OPEN I-O statement designates the existing file as the one to be updated. (Both READ and WRITE 
statements may be issued to the file.) Label processing is the same as when the file is opened for input. This 
type of OPEN statement affects the manner in which WRITE statements function. Each WRITE statement is 
dependent upon a READ or SEEK READ statement previously issued for the file. The WRITE order is issued 
for the relative record specified on the previous READ or SEEK statement. 


Sequential access 

a. READ file-name RECORD AT END imperative-statement 
The READ AT END statement for sequential access method delivers the next logical record from an 
input file, or performs the specified imperative statement following the AT END clause if the end of the 
file is detected. 

b. WRITE record-name; INVALID KEY imperative-statement 
The WRITE INVALID KEY statement releases a logical record to an output file. The imperative 
statement following the INVALID KEY clause is executed when the end of file is detected and an 
attempt is made to execute a WRITE statement for that file. 

c. SEEK file-name RECORD 
The SEEK statement positions the file to the relative record number specified by the contents of the 
actual key. No error indication is available if the record is not located. Error indications are available on 
the succeeding READ or WRITE statements. 

Random access 

a. READ file-name RECORD INVALID KEY imperative-statement 
The READ INVALID KEY statement delivers the logical record specified by the contents of the actual 


key, or executes the imperative statement following INVALID KEY clause if the record specified by the 
actual key does not exist within the user’s extent. 





ve ‘ WRITE 


REWRITE \ recora-name INVALID KEY imperative-statement 


The WRITE or REWRITE INVALID KEY statement writes the logical record to the physical area of the 
disc specified by the relative record number contained in the actual key. If that record does not exist in 
the user’s extent, the INVALID KEY imperative statement in the INVALID KEY clause is executed. 


Cc. SEEK file-name RECORD 


The SEEK statement positions the file to the relative record number specified by the contents of the 
actual key. 


CLOSE file-name 


See CLOSE statement under sequential file processing (11.4.1). 
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& 11.4.3. Indexed File Processing 
The following clauses are used in processing indexed sequential files: 
1. ORGANIZATION IS INDEXED 


The ORGANIZATION IS INDEXED clause denotes file organization as indexed sequential, and causes data 
management indexed sequential access method (ISAM) routines to be linked into the object program. 


EXTENDED 
2. ACCESS MODE IS < RANDOM 
SEQUENTIAL 


The ACCESS MODE clause specifies the order in which records are written to, or read from, the file. 


a. Sequential 


The sequential access mode requires a serial processing of records to or from the file; therefore, no key 
need be presented when retrieving records. Indexed files can be created under sequential access. 


b. Random 


The random access mode requires no serial dependency of record processing. The key of the record to be 
read or sought is specified in the SYMBOLIC KEY clause. New records can be inserted in an existing 
indexed file under random access. 


& c. Extended 


The extended access mode combines sequential and random record processing. 


3. RECORDING move is | f ; 


The RECORDING MODE IS F clause indicates fixed-length records. The RECORDING MODE IS V clause 
indicates variable-length records. Fixed- or variable-length blocked records are the only formats available for 
indexed files. 


4. RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 


The RECORD CONTAINS clause indicates the size of the records. If the records are variable in length, a 
high/low range can be specified. 


5. BLOCK CONTAINS integer-n { 


CHARACTERS 


The BLOCK CONTAINS clause indicates the number of records or characters per block. Space allocated to the 
1/O area is a multiple of 256 bytes. 


RECORDS \ 


6. SYMBOLIC KEY IS data-name 


The SYMBOLIC KEY clause specifies the data-name containing the key of the record to be read or sought. 
This key field must match the size and description of the record key field. 
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7. RECORD KEY IS data-name 





The RECORD KEY clause specifies the field within each record containing the record identification. This field 
is used at file creation time to build the indexes required for subsequent file processing. At retrieval time, the 
contents of the programmer-supplied SYMBOLIC KEY field are compared against the defined RECORD KEY 
field in accessing indexed records randomly. The key field must be greater than 2 and less than or equal to 249 
bytes in length. 


8. APPLY CYLINDER-INDEX AREA OF integer-n INDICES ON file-name 


The APPLY CYLINDER-INDEX AREA clause establishes levels of indexes to expedite the retrieval of records. 
When an indexed file is created, data blocks containing records are loaded sequentially. Each record contains 
an embedded key. (See RECORD KEY, 11.4.3.) As each data block is filled with records and written to disc, 
the key of the highest record in the block is recorded in a block-index entry, along with the disc address of the 
block. When a track on the disc becomes filled with blocks of block-index entries, an entry in the top index is 
created containing the highest key on the track of block-index entries. Retrieval of records reverses the 
process. To eliminate the disc reads required to access the top index for retrieval, sufficient storage should be 
allocated to contain a number of top index entries. Integer-n specifies the number of top index entries to be 
held in storage. If all top index entries can be held in storage, all reads to access the top index are eliminated. 


9. APPLY MASTER-INDEX ON file-name 


The APPLY MASTER-INDEX clause is accepted for OS/4 and OS/7 compatibility. |n OS/3 this clause serves 
for documentation only. 


10. APPLY CYLINDER-OVERFLOW AREA OF integer-n PERCENT ON file-name 


To keep disc head movement to a minimum in retrieving records from overflow, a percentage of each cylinder @ 
in the prime data area can be allocated to contain overflow records. If this clause is omitted, 20 percent of 

each cylinder is set aside to contain overflow records. If no cylinder overflow is desired, 0 percent should be 

specified, In this case, no new records may be inserted into the file. If specified, integer-n is an unsigned 

number. 


11. APPLY EXTENDED-INSERTION AREA ON file-name 


The APPLY EXTENDED-INSERTION AREA clause is accepted for OS/4 and OS/7 compatibility. In OS/3, 
this clause serves for documentation only. 
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@ 12. APPLY VERIFY ON file-name 


The APPLY VERIFY clause requests verification (READ after WRITE) of disc records after they have been 
written. If this clause is omitted, no verification of records is performed. 


integer-n 


NO 


13. RESERVE AREAS 


\ ALTERNATE Re | 


The RESERVE ALTERNATE clause indicates the number of additional I/O areas desired. The key word NO 
causes no additional 1/O areas to be reserved; integer-n (which must be a one) reserves one additional 1/O area. 
If this clause is omitted, no additional I/O areas are allocated. 


RECORD IS 


io Eeeer Coons 


\ STANDARD 


The reserved word STANDARD specifies that system file labels are to be checked (or created) and that the 
labels conform to OS/3 label specification. 


The following input/output statements are used for processing indexed files: 

1. OPEN OUTPUT file-name 
The OPEN OUTPUT statement indicates the file is to be loaded or extended. The creation of a file (load) with 
standard labels is assumed unless the file already exists, in which case file extension is implied. This statement 


can only be specified for sequential access or extended access. 


2. OPEN INPUT file-name 





@ The OPEN INPUT statement indicates that the file is to be used in a read-only mode. Standard labels are 
checked. For sequential and extended access, the file is positioned to the first record. This statement can also 
be specified for random access. 


3. OPEN I-O file-name 





The OPEN 1{-O statement indicates that the file is to be used in a read and write mode. Standard labels are 
checked. For sequential and extended access, the file is positioned to the first record. This statement can also 
be specified for random access. 


4. SEEK filename RECORD 





For sequential file processing, the SEEK statement causes the programmer-supplied value in the SYMBOLIC 
KEY item to specify the RECORD KEY value of the logical record within the file which is to be positioned 
for subsequent sequential retrieval. If a logical record is not found with that key, positioning is made to the 
record with the next higher key. 


The SEEK statement can only be used under sequential or extended access mode when opened for INPUT or 
1-0. 


AT END 


5. READ file-name RECORD [INTO identifier] [: ‘ INVALID KEY 


\ imperativestatement | 

For sequential file processing, the READ statement makes available the next logical record from a file and 
allows performance of a specified imperative-statement when the end of the file is detected. The logical record 
® retrieved is determined by the preceding input/output statements as shown in Table 11—1. 
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Table 11-1. Logical Record Retrieval by Sequential Read 


Preceding Input/Output Logical Record Retrieved 
Statement by Sequential Read 
SEEK Record with SEEK key or, if key does not exist, record 
with next higher record key 
READ Record with next higher record key after last retrieved 
record 
WRITE/REWRITE/INSERT Does not affect positioning for sequential read. 


For random file processing, the READ statement makes available the record specified by SYMBOLIC KEY, 
and allows performance of a specified imperative-statement if a logical record with that key does not exist. 















When AT END is specified, the READ statement is treated as a sequential read, and the access mode must be 
sequential or extended. When INVALID KEY is specified, the READ statement is treated as a random read, 
and the access mode must be random or extended. If neither AT END nor INVALID KEY is specified, the 
type of read is determined by the access mode. If access is extended or random, the read is a random read. The 
file must be opened for INPUT or I-O for the READ to be valid. 


WRITE record-name [FROM identifier-1] [; INVALID KEY imperative-statement] 
The WRITE statement releases a logical record for an output file. 
a File loading, extending. 


When loading or extending a file, the WRITE statement is used to add logical records sequentially in the 
prime data area of the file and to create the necessary index entries for later retrieval of the logical 
records. The logical records must be presented for loading in ascending record key sequence. If the file is 
being extended, the RECORD KEY value of the first logical record written must be higher than the 
highest RECORD KEY value currently in the file. The WRITE statement allows performance of a 
specified imperative-statement if the RECORD KEY is equal to, or out of key sequence with, the last 
RECORD KEY. 


The WRITE statement can only be used for file loading or extension under sequential or extended access 
when opened for OUTPUT. 


a Record update 


When updating an existing record, the WRITE statement must be preceded by a successful READ 
statement. The WRITE statement causes the updated record to be rewritten into its original physical 
area. Neither the length nor the RECORD KEY value can be changed. The WRITE statement allows 
performance of a specified imperative-statement if the length or key value has been modified. 


The WRITE statement can only be used for record updating under sequential, random, or extended 
access when opened for [-O. 
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® a Record insertion 


When inserting a new record into an indexed file, the WRITE statement causes a new logical record to be 
added to the file at the logical position designated by its RECORD KEY value. No other logical record 
may exist in the file with the same RECORD KEY value. The WRITE statement allows performance of a 
specified imperative-statement if a logical record with that RECORD KEY already exists. 


The WRITE statement can only be used for record insertion under RANDOM or EXTENDED access 
when opened for !-O. 


7. REWRITE record name [FROM identifier] [; INVALID KEY imperative-statement] 


The REWRITE statement can be used in place of the WRITE statement for record update. The same rules used 
for record update for the WRITE statement apply. 


8. INSERT record-name [FROM identifier-1] [; INVALID KEY imperative-statement] 


The INSERT statement can be used in place of the WRITE statement for record insertion. The same rules used 
for record insertion for the WRITE staement apply. 


9. CLOSE file-name 
See CLOSE statement for sequential file processing (11.4.1). 
The following is a summary of input/output statements permitted for each access method and open mode: 
& = =ORGANIZATION IS INDEXED, ACCESS IS SEQUENTIAL 
Sequential Output Sequential Input Sequential I-O 
Processing Processing Processing 


OPEN OUTPUT OPEN INPUT OPEN 1-0 


WRITE [INVALID KEY] | READ [ATEND]®@ | READ [AT END] @ 


CLOSE SEEK SEEK 
CLOSE WRITE [INVALID KEY]© 
REWRITE [INVALID KEY] 


CLOSE 





NOTES: 
(1) When access is SEQUENTIAL and the file is opened for OUTPUT, the WRITE statement is a 
request for loading or extending file. When opened for !-O, the WRITE statement is a request for 


an update of an existing record. 


@ (2) When access is SEQUENTIAL, a READ statement is always treated as a sequential read. 
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2 ORGANIZATION IS INDEXED, ACCESS IS RANDOM & 


Random Output Random tnput Random |-O 
Processing Processing Processing 


Invalid OPEN mode ; OPEN INPUT OPEN I-O 


READ [INVALID KEY]@ READ [INVALID Key]® 


CLOSE WRITE [INVALID KEY]© 
REWRITE [INVALID KEY] 
INSERT [INVALID KEY] 


CLOSE 





NOTES: 
(1) When access is RANDOM and the file is opened for I-O, the WRITE statement is 
either a request for an update of an existing record or a request for insertion of a 


new record. 


@) When access is RANDOM, a READ statement is always treated as a random read. 





7 ORGANIZATION IS INDEXED, ACCESS IS EXTENDED 


Extended Output Extended Input Extended 1-O 
Processing Processing Processing 


OPEN OUTPUT OPEN INPUT OPEN I-O 


WRITE [INVALID KEY] READ AT END @ READ AT END @ 
INVALID KEY INVALID KEY 
CLOSE 


SEEK SEEK 


CLOSE WRITE [INVALID KEY] 


REWRITE [INVALID KEY] 
INSERT [INVALID KEY] 


CLOSE 





NOTES: 


(4) When access is EXTENDED and the file is opened for OUTPUT, the WRITE statement is a 
request for loading or extending the file. When opened for !-O, the WRITE statement is a 
request for either an update of an existing record or a request for inserting a new record. 
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(2) When access is EXTENDED and the file is opened for INPUT or 1-0, if neither AT END nor 
INVALID KEY is specified for a READ statement, the READ statement is treated as a 
random read. If AT END is specified, the READ statement is treated as a sequential read. If 
INVALID KEY is specified, the READ statement is treated as a random read. 

11.4.4. Summary of Imperative Statements and Error Conditions 


The use of the AT END/INVALID KEY imperative-statement with the ORGANIZATION clause, system error 
messages, and COBOL disc processing techniques are summarized in the following paragraphs. 


11.4.4.1. ORGANIZATION IS SEQUENTIAL Clause 
The AT END imperative-statement is executed when the logical end of file is detected. ~<+ 


The INVALID KEY imperative-statement is executed when no space is left on the file for the record to be written. 


11.4.4.2. ORGANIZATION IS RELATIVE Clause 

The AT END imperative-statement is executed when an access to a record beyond the file is attempted. 

The INVALID KEY imperative-statement is executed when the relative-record number or relative-track number is 
beyond the file extents. 

11.4.4.3. ORGANIZATION IS INDEXED Clause 


The AT END/INVALID KEY imperative-statement clauses are executed according to the explanation given in 
11.4.3. See also Table 11—3 for a list of the AT END/INVALID KEY exception conditions. 


Exception conditions for indexed files are handled in the following manner: 
2 Warning Exceptions 
When a warning exception condition arises during COBOL verb processing for indexed files, control is returned 


immediately following the input/output verb with the appropriate SYSERR setting. The warning exception 
conditions are shown in Table 11—2. 


Table 11~—2. Warning Exception Conditions for Indexed File Processing 


Waming Exception Condition COBOL Verb 


End of file detected when positioning 
unit for subsequent sequential retrieval 
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End-of-File/Invalid Key Exceptions 


When an end-of-file condition or invalid key condition arises during COBOL verb processing for indexed files, 
SYSERR is appropriately set, and the AT END/INVALID KEY imperative-statement is executed. If no AT 
END/INVALID KEY imperative-statement is specified when this condition occurs, control is transferred to 
the appropriate USE AFTER ERROR procedure. If this latter procedure is not specified, the COBOL ERROR 
procedure is called and results in an end-of-job sequence. 


The AT END/INVALID KEY exception conditions are shown in Table 11—3. 


Table 11-3. AT END/INVALID KEY Exception Conditions for Indexed File Processing 


AT END/INVALID KEY Exception Conditions COBOL Verb 


End of file detected (AT END Sequential READ 
condition) 


During file creation or extension, a Load WRITE 
record-key value is found out of key 
sequence (INVALID KEY condition) 
























A duplicate record-key vaiue is detected Load WRITE 





{INVALID KEY condition) insert WRITE 
INSERT 

A specified record-key value cannot be Random READ 

found (INVALID KEY condition) 

A record-key value or length value for a Update WRITE 












record update has been modified (INVALID WRITE 


KEY condition) 






Unrecoverable File Errors 


When unrecoverable file errors occur during COBOL verb processing for indexed files, control is transferred to 


the applicable USE AFTER ERROR procedure with the appropriate SYSERR message set. If a USE AFTER 
ERROR procedure is not provided, the COBOL ERROR procedure is called and results in an end-of-job 
sequence. The unrecoverable file error conditions are shown in Table 11—4. 


Table 11—4. Unrecoverable File Error Conditions for Indexed File Processing (Part 1 of 2) 


Unrecoverable File Error Conditions COBOL Verb 
General CLOSE errors CLOSE 


Invalid use of COBOL verb: All COBOL verbs 


- COBOL verb not valid for open mode 

- OPEN issued to file currently opened 

- Verb other than OPEN issued to file 
CLOSE 
Load WRITE 
Insert WRITE 















not currently opened 

— _ Update not preceded by a successful 
READ 

- Because of previous errors, only CLOSE 
verb permitted 








Insufficient file space 





11-14 
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Table 11—4, Unrecoverable File Error Conditions for Indexed File Processing (Part 2 of 2) 


2 Storage Dump 





Unrecoverable File Error Conditions COBOL Verb 


No AT END/INVALID KEY imperative-statement Sequential READ 

specified for COBOL verb and exception Random READ 

condition occurred when processing verb Load WRITE 
Update WRITE 
Insert WRITE 
REWRITE INSERT 


Invalid record size Load WRITE 
Insert WRITE 
INSERT 


Data portion of track index destroyed OPEN SEEK 

{invalid 1D) or invalid index search Sequential READ 
Random Read 
Insert WRITE 
INSERT 


If an unrecoverable file error occurs and control is transferred to the COBOL ERROR procedure, this 
procedure takes a dump of the job region before job termination. The following information is available: 


- Register values 


Register Value 





BN oO 





SYSERR setting (Table 11—6) 
Address of DTF of file in error 
Address of prefix of file in error 
Address of return location in program 
if error had not occurred 


- File prefix format 





rl Record Key Area 


a 








Indicator 1 Indicator 2 





Current Previous 
COBOL Verb COBOL Verb 














The shaded area is the prefix to the DTF module. 
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Bits O—1 Used by COBOL internally 
Bits 2-3 Access mode 

00 — Sequential 

10 — Random 

01 — Extended 
Bits 4—7 Used by COBOL internally 


Indicator 2 — Byte 15 


Bits O—2 Open mode 


100 — Input 
010 — Output 
001 — 1/0 


Bits 3—7 Used by COBOL internally 


Current COBOL verb — Byte 18 


Code for COBOL verb processed for indexed file when exception condition occurred 


Previous COBOL verb — Byte 19 


Code for COBOL verb processed for indexed file that preceded current COBOL verb 


Code 


00 
01 
02 
03 
04 
05 
06 
07 
08 


COBOL Verb 


OPEN 

CLOSE 

SEEK 

READ (sequential) 

READ (random) 

WRITE (load) 
WRITE/REWRITE (update) 
Not used 

WRITE/INSERT (insert) 


RECORD KEY area — Bytes 40—n 


Record-key used for sequential retrieval positioning. 


PAGE 


The exception conditions for each input/output COBOL verb used for processing indexed files are summarized in 


Table 11—5. 


11-16 











COBOL Verb 


or Indexed 
File 





OPEN 


Table 11—5. Exception Handling for COBOL Verbs Used for Indexed File Processing (Part 1 of 9) 











PREFIX Transfer of 


Control 


File Processing 
Status 


SYSERR 
Setting 



















Exception Condition 











SYSERR-2 
SYSERR-4 


General OPEN error OPEN not completed; 
file processing cannot 


continue 






USE AFTER ERROR 
procedure 













SYSERR6G 





OPEN not completed; 
file processing cannot 
continue 


File currently opened USE AFTER ERROR 


procedure 























Hardware error: 

When one occurs, SYSERR-3 is 
always set along with one or 
more of the following. 










SYSERR-3 





OPEN not completed; 
file processing cannot 
continue 


USE AFTER ERROR 
procedure 









Unrecoverable error SYSERR-9 







































Unique unit error SYSERR-10 
Record not found (hardware search} SYSERR-11 
Unit exception SYSERR-12 
Wrong length found SYSERR-13 
Command rejection SYSERR-16 
Intervention required SYSERR-17 
Output parity check SYSERR-18 
Equipment check SYSERR-19 
Data check SYSERR-20 
Overrun SYSERR-21 
STOP state SYSERR-22 


Device check SYSERR-23 

















SYSERR-1 USE AFTER ERROR 


procedure 


Invalid ID when positioning to beginning of file 
(opened INPUT; I-O; access SEQUENTIAL or 
EXTENDED) 


OPEN not completed; 
file processing cannot 
continue; file may 

not be valid 














Invalid index search when positioning to SYSERR-28 
beginning of file (opened INPUT; 1-0; 
access SEQUENTIAL or EXTENDED) 


OPEN not completed; file 
processing cannot continue; 
file may not be valid 


USE AFTER ERROR 
procedure 










CLOSE 





















General CLOSE error SYSERR-5 CLOSE not completed; USE AFTER ERROR 
file may not be valid procedure 
File not currently opened SYSERR-6 CLOSE not completed; USE AFTER ERROR 






file still valid procedure 
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COBOL Verb 
or Indexed 
File Code 
CLOSE (cont) 01 
SEEK 02 








PREFIX 
Verb 


Table 11-5. Exception Handling for COBOL Verbs Used for Indexed File Processing (Part 2 of 9) 


Exception Condition 





Hardware error: 
When one occurs, SYSERR-3 is 
always set along with one or 
more of the following: 


Unrecoverable error 
Unique unit error 
Record not found (hardware search) 
Unit exception 
Wrong length found 
Command rejection 
Intervention required 
Output parity check 
Equipment check 
Data check 

Overrun 

STOP state 

Device check 













File not successfully loaded because of 
insu fficient space 


File not currently opened 


SEEK not vatid for 
open OUTPUT 






Hardware error: 
When one occurs, SYSERR-3 is 
always set along with one or 
more of the following: 


Unrecoverable error 
Unique unit error 
Record not found (hardware search) 
Unit exception 
Wrong length found 
Command rejection 
Intervention required 
Output parity check 
Equipment check 
Data check 

Overrun 

STOP state 

Device check 















SYSERR File Processing 
Setting Status 


SYSERR-3 CLOSE not completed; file 
may not be valid 


SYSERR-9 

SYSERR-10 
SYSERR-11 
SYSERR-12 
SYSERR-13 
SYSERR-16 
SYSERR-17 
SYSERR-18 
SYSERR-19 
SYSERR-20 
SYSERR-21 
SYSERR-22 
SYSERR-23 





SYSERR-26 CLOSE not completed; 
file not valid and must 
be reloaded 


SYSERR-6 SEEK not completed 


SYSERR-6 





SEEK not completed 





SYSERR-3 SEEK not completed; file 


may not be valid 

















SYSERR-9 
SYSERR-10 
SYSERR-11 
SYSERR-12 
SYSERR-13 
SYSERR-16 
SYSERR-17 
SYSERR-18 
SYSERR-19 
SYSERR-20 
SYSERR-21 
SYSERR-22 
SYSERR-23 


















Transfer of 
Control 





USE AFTER ERROR 
procedure 


USE AFTER ERROR 


procedure 





USE AFTER ERROR 
procedure 












USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 
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Table 11—§. Exception Handling for COBOL Verbs Used for Indexed File Processing (Part 3 of 9) 






COBOL Verb PREFIX 


or ladexed Exception Condition SYSERR File Processing Transfer of 


File Code Setting Status Control 


SEEK (cont) No record with key equal or greater SYSERR-11 
than SEEK key found (end of file and SYSERR-25 issued, AT END patch will be 
detected) (both always executed; normal file process- 

set) and ing may continue 
SYSERR-3 not 
set 


SEEK completed; if READ Immediately after SEEK 


SYSERR-1 SEEK not completed; file USE AFTER ERROR 
may not be valid procedure 
Invalid index search SYSERR-28 


SEEK not completed; file USE AFTER ERROR 





Sequential 
READ 


Due to preceding errors, only 
CLOSE verb permitted 


File not currently opened 


READ not valid for open OUTPUT 


Hardware error: 
When one occurs, SYSERR-3 is 
always set along with one or 
more of the following: 


Unrecoverable error 
Unique unit error 
Record not found (hardware search) 
Unit exception 
Wrong length found 
Command rejection 
Intervention required 
Output parity check 
Equipment check 
Data check 

Overrun 

STOP state 

Device check 


SYSERR-27 


SYSERR-G 


SYSERR6 


SYSERR-3 


SYSERR-9 

SYSERR-10 
SYSERR-11 
SYSERR-12 
SYSERR-13 
SYSERR-16 
SYSERR-17 
SYSERR-18 
SYSERR-19 
SYSERR-20 
SYSERR-21 
SYSERR-22 
SYSERR-23 


may not be valid 


SEEK not completed 


READ not completed 


READ not completed 


READ not completed 


procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 
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COBOL Verb 
or Indexed 
File 


Sequential 
READ (cont) 


Random READ 





PREFIX 


Table 11-5. Exception Handling for COBOL Verbs Used for Indexed File Processing (Part 4 of 9) 


Exception Condition 


End of file detected 


Invalid index search 


Due to preceding errors, only CLOSE 
verb permitted 


File not currently opened 


READ not valid for open OUTPUT 


Hardware error: 
When one occurs, SYSERR-3 is 
always set along with one or 
more of the following: 


Unrecoverable error 
“Unique unit error 
Record not found (hardware search) 
Unit exception 
Wrong length found 
Command rejection 
Intervention required 
Output parity check 
Equipment check 
Data check 

Overrun 

STOP state 

Device check 


SYSERR 
Setting 


SYSERR-25 


SYSERR-1 
SYSERR-28 


SYSERR-27 


SYSERR-6 


SYSERR-6 


SYSERR-3 


SYSERR-9 
SYSERR-10 
SYSERR-11 
SYSERR-12 
SYSERR-13 
SYSERR-16 
SYSERR-17 
SYSERR-18 
SYSERR-19 
SYSERR-20 
SYSERR-21 
SYSERR-22 
SYSERR-23 





File Processing 
Status 


READ not completed; before 
any further sequential retrieval 
can continue, it is necessary 
to reposition in the file; 
normal file processing may 
continue 


READ not completed; file may not 
be valid 


READ not completed; file may not 
be valid 
READ not completed 


READ not completed 


READ not completed 


READ not completed 


Transfer of 
Control 


If specified, AT END 
path; if not specified, 
USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 


procedure 


USE AFTER ERROR 
procedure 
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Table 11-5. Exception Handling for COBOL Verbs Used for Indexed File Processing (Part 5 of 9) 







































































ee xls ao t ve SYSERR File Processing Transfer of 
1 or aa as Exception Condition Setting Status Control 
Random 04 Specified record-key: value cannot be SYSERR-11, not READ not completed; record not Hf specified, INVALID 
READ (cont) found because a record with that key SYSERR-3 retrieved but normal file proc- KEY path; if not 
value never added to file essing may continue specified, USE AFTER 
ERROR procedure 
Invalid ID SYSERR-1 READ not completed; file may not USE AFTER ERROR 
be valid procedure 
Invalid index search SYSERR-28 READ not completed; file may not USE AFTER ERROR 
be valid procedure 
Due to preceding errors, only CLOSE SYSERR-27 READ not completed USE AFTER ERROR 
verb permitted procedure 
Load WRITE 05 File not currently opened SYSERR-6 WRITE not completed USE AFTER ERROR 
procedure 
WRITE not valid for open INPUT SYSERR-6 WRITE not completed USE AFTER ERROR 
; procedure 
Hardware error: 
When one occurs, SYSERR-3 is SYSERR-3 WRITE not completed USE AFTER ERROR 
always set along with one or procedure 
more of the following: 
A Unrecoverable error SYSERRY9 
Unique unit error SYSERR-10 
Record not found (hardware search) SYSERR-11 
Unit exception SYSERR-12 
Wrong length found SYSERR-13 
Command rejection SYSERR-16 
Intervention required SYSERR-17 
Output parity check SYSERR-i18 
Equipment check SYSERR-19 
Data check SYSERR-20 
Overrun SYSERR-21 








STOP state SYSERR-22 
Device check SYSERR-23 
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COBOL Verb 
or Indexed 


File 





Load 
WRITE (cont) 


Update WRITE/ 
REWRITE 





PREFIX 
Verb 
Code 


05 





Table 11-5. Exception Handling for COBOL Verbs Used for Indexed File Processing (Part 6 of 9) 


: 2s SYSERR File Processing Transfer of 
Exception Condition Setting Status Control 
Invalid record size SYSERR-24 WRITE not completed USE AFTER ERROR 
procedure 
Prime data area full or index SYSERR-1 WRITE not completed; USE AFTER ERROR 
area full 


record not written because procedure 
of inadequate space; file 
should be closed 









































Duplicate record key If specified, 


SYSERR-30 WRITE not completed; 


and SYSERR-29 because key already exists INVALID KEY path; 
(both always in file; normal file proc- if not specified, 
set) essing can continue USE AFTER ERROR 


procedure 












WRITE not completed because 
key not greater than last key 
in file; normal file processing 
continues 


if specified, 
INVALID KEY path; 
if not specified, 

USE AFTER ERROR 
procedure 






Record-key sequence error SYSERR-29 


Due to preceding errors, only SYSERR-27 
CLOSE verb permitted 

File not currently opened SYSERR-6 
Update not valid for open INPUT SYSERR-6 
or OUTPUT 








WRITE not completed USE AFTER ERROR 


procedure 








Update not completed USE AFTER ERROR 


procedure 





Update not completed 





USE AFTER ERROR 
procedure 
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Table 11-5. Exception Handling for COBOL Verbs Used for Indexed File Processing (Part 7 of 9) 


















COBOL Verb PREFIX 
or indexed Verb 
File Code 


Transfer of 
Control 


File Processing 
Status 


SYSERR 
Setting 














Exception Condition 









Update WRITE/ 06 Hardware error: 






























































—- REWRITE (cont) When one occurs, SYSERR-3 is SYSERR-3 Update not completed USE AFTER ERROR 

always set along with one or procedure w” 

more of the following: a 

es] 

Unrecoverable error SYSERR-9  °] 

Unique unit error SYSERR-10 < 

Record not found (hardware search) SYSERR-11 Cc 

Unit exception SYSERR-12 z 

Wrong length found SYSERR-13 < 

Command rejection SYSERR-16 B 

tntervention required SYSERR-17 

Output parity check SYSERR-18 © 

Equipment check SYSERR-19 8 

Data check SYSERR-20 s 

Overrun SYSERR-21 3 

STOP state SYSERR-22 be 

Y Device check SYSERR-23 2 
Update not preceded by random or Update not completed USE AFTER ERROR § 
sequential READ Procedure Oo 













Update not completed USE AFTER ERROR 


procedure 





End of file detected for preceding SYSERR-6 
sequential READ 

Record not found detected for SYSERR-6 
preceding random READ 


Record-key value or length value None Update not completed; 
for a record update was modified. processing can continue 













USE AFTER ERROR 
procedure 


Update not completed 













If specified, 
INVALID KEY path; 
if not specified, 

USE AFTER ERROR 
procedure 


Due to preceding errors, only CLOSE SYSERR-27 Update not completed USE AFTER ERROR 
verb permitted procedure 
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COBOL Verb 
or Indexed 
File 


Insert WRITE/ 
INSERT 





PREFIX 
Verb 
Code 


Table 11—5. Exception Handling for COBOL Verbs Used for Indexed File Processing (Part 8 of 9) 


Exception Condition 


File not currently open 


Insert not valid for open INPUT or 
OUTPUT 


Hardware error: 
When one occurs, SYSERR-3 is 
always set along with one or 
more of the following: 


Unrecoverable error 
Unique unit error 
Record not found (hardware search) 
Unit exception 
Wrong length found 
Command rejection 
Intervention required 
Output parity check 
Equipment check 
Data check © 
Overrun 

STOP state 

Device check 


Invalid record size 


Overflow area full 


ADD rejected due to error on preceding 
insert 


Duplicate record key 


SYSERR 
Setting 


SYSERR-6 


SYSERRS 


SYSERR-3 


SYSERR-9 

SYSERR-10 
SYSERR-11 
SYSERR-12 
SYSERR-13 
SYSERR-16 
SYSERR-17 
SYSERR-18 
SYSERR-19 
SYSERR-20 
SYSERR-21 
SYSERR-22 
SYSERR-23 


SYSERR-24 


SYSERR-26 


SYSERR-31 


SYSERR-29 
SYSERR-30 


File Processing 
Status 


Insert not completed 


Insert not completed 


Insert not completed 


Insert not completed 


Insert not completed; record 
not written because of inadequate 
space; processing may continue 


Insert not completed; processing 
can continue 


Insert not completed because 
key already exists in file; 
normal file processing can 
continue 








Transfer of 
Control 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


USE AFTER ERROR 
procedure 


If specified, 
INVALID KEY path; 
if not specified, 

USE AFTER ERROR 
procedure 
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Table 11-5. Exception Handling for COBOL Verbs Used for Indexed File Processing (Part 9 of 9) 


OBOL Verb P I P 
= indeed ae E tion Conditi SYSERR File Processing Transfer of 
ei xception Condition Setting eae Saal 
Insert WRITE/ SYSERR-1 Insert not completed; USE AFTER ERROR 
INSERT (cont) file may not be valid procedure 


Invalid index search SYSERR-28 Insert not completed; USE AFTER ERROR 
file may not be valid procedure 

Due to preceding errors, only SYSERR-27 Insert not completed USE AFTER ERROR 

CLOSE verb permitted procedure 

Zero percent overflow . SYSERR-31 Insert not USE AFTER ERROR 

allocated completed procedure 
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11.4.4.4. SYSERR Messages @ 


Table 11-6 contains the definitions of the 32 SYSERR messages for ORGANIZATION INDEXED and 
ORGANIZATION RELATIVE. SYSERR is set whenever data management indicates an error has occurred. If no 
error occurs, all SYSERR settings will be off. 


Table 11—6. System Error Messages (SYSERR) for INDEXED and RELATIVE Files 


SYSERR-O Last block on track accessed SYSERR-17 Intervention required 
SYSERR-1 Invalid 1D SYSERR-18 Output parity check 


SYSERR-2 Invalid DTF (Indexed) SYSERR-19 Equipment check 
Invalid PCA/DTF (Relative) 
SYSERR-20 Data check 
SYSERR-3 Hardware error 
SYSERR-21 Overrun 
SYSERR-4 Error found in OPEN 


SYSERR-22 STOP state 


SYSERR-5 Error found in CLOSE 
SYSERR-23 Device check 
SYSERRS Invalid macro sequence 
SYSERR-24 Invalid record size 
SYSERR-7 Reserved (Indexed) 
WAITF required (Relative) SYSERR-25 Logicat end of fiie 


SYSERR-8 1/0 complete SYSERR-26 File space exhausted (Indexed) 
Logical end of volume (Relative) 





SYSERR-9 Unrecoverable error 

SYSERR-27 Processing inhibited 
SYSERR-10 Unique unit error 

SYSERR-28 Invalid index (Indexed) 
SYSERR-11 Record not found Reserved (Relative) 


SYSERR-12 Unit exception SYSERR-29 Key sequence error (Indexed) 
Reserved (Relative) 
SYSERR-13 Wrong length found 


SYSERR-30 Duplicate key error (Indexed) 
SYSERR-14 End of track Reserved (Relative) 


SYSERR-15 End of cylinder SYSERR-31 ADD rejected (Indexed) 


Reserved (Relative) 
SYSERR-16 Command rejection 





Additional information regarding error conditions can be found in the OS/3 data management user guide, UP-8068 
(current version). 


11.4.4.5. COBOL Disc Processing Techniques 


Table 11—7 contains a summary of COBOL disc processing techniques. 





Table 11—7. Summary of COBOL Disc Processing Techniques 






































































































































































































































7 T 
Processing Technique . Required Record ; : i 
oh Addressing Key Eormat Open Allowable 1/O Required Optional Restricted 
Technique Verb Statements Clauses Clauses Clauses 
Organization Access Clauses 
SEQUENTIAL SEQUENTIAL NONE INPUT READ AT END SELECT ASSIGN SELECT OPTIONAL, APPLY RESTRICTED SEARCH, 
OR OR ALLOWED LABEL RECORDS MULTIPLE UNIT, APPLY FILE-PREPARATION, 
OMITTED OMITTED OUTPUT | WRITE INVALID KEY RESERVE, SAME (RECORD) APPLY CYLINDER-OVERFLOW 
STANDARD 
ARE { DATA-NAME \ AREA, BLOCK CONTAINS, 
READ AT END RECORD CONTAINS, DATA 
RECORDS, APPLY VERIFY, 
WRITE INVALID KEY CLOSE USE LABEL, USE ERROR, 
CLOSE UNIT, READ INTO, 
WRITE FROM 
RELATIVE SEQUENTIAL RELATIVE ACTUAL {NPUT READ AT END, SEEK 
OR RECORD OR F 
OMITTED @ RELATIVE OUTPUT WRITE INVALID KEY, 
SEEK 
1-0 READ AT END, WRITE @ SAME (RECORD) AREA, RESERVE INTEGER, OPTIONAL, 
INVALID KEY, SEEK ® RECORD CONTAINS, BLOCK BLOCK CONTAINS >1 RECORD, 
t- { CONTAINS 1 RECORD, DATA USE ENDING LABEL 
RELATIVE RANDOM RELATIVE ACTUAL INPUT READ INVALID KEY, RECORD, APPLY VERIFY, 
OR RECORD OR SEEK APPLY FILE-PREPARATION 
OMITTED @ RELATIVE F RESERVE NO ALTERNATE 
OUTPUT | WRITE INVALID KEY, AREA, READ INTO, WRITE 
| SEEK FROM, INSERT FROM 
1-0 READ INVALID KEY, 
WRITE () INVALID KEY, 
SEEK 6) 
r — 
INDEXED SEQUENTIAL RECORD F aE INPUT READ {AT END], SELECT/ASSIGN FOR MULTIPLE UNIT, FOR MULTIPLE REEL, 
@ OR AND oN SEEK LABEL RECORDS ARE RESERVE NO ALTERNATE MULTIPLE FILE TAPE, 
OMITTED [SYMBOLIC] v STANDARD AREA, RESERVE APPLY RESTRICTED SEARCH, 
OUTPUT {| WRITE [INVALID KEY} INTEGER ALTERNATE APPLY BLOCK COUNT ON, 
AREA, FILE LIMIT, APPLY FILE PREPARATION ON, 
1-0 READ [AT END], CLOSE PROCESSING MODE IS APPLY ASCH, 
SEEK, SEQUENTIAL, RERUN ON, LABEL RECORDS ARE OMITTED 
WRITE {INVALID KEY], SAME (RECORD) AREA, OR DATA NAME, 
_ REWRITE [INVALID KEY} APPLY VERIFY, APPLY USE LABELS, 
+ MASTER INDEX ON, APPLY OPTIONAL 
INDEXED RANDOM RECORD iz INPUT READ [INVALID KEY} CYLINDER OVERFLOW ON, 
AND ~ APPLY CYLINDER INDEX 
[SYMBOLIC] Vv 1-0 READ [INVALID KEY], AREA OF, APPLY EXTEND- 
© WRITE [INVALID KEY], ED-INSERTION AREA ON, 
REWRITE [INVALID KEY}, BLOCK CONTAINS, RECORD 
INSERT [INVALID KEY] CONTAINS, VALUE OF, 
F a DATA RECORDS ARE, USE 
INDEXED EXTENDED RECORD F | INPUT READ es END Je ERROR INTOZEHON 
_ INVALID KEY. 
AND 
[SYMBOLIC} Vv SEEK 
ReaD ee END @ 
INVALID KEY. 
SEEK, 
WRITE [INVALID KEY], 
REWRITE (INVALID KEY], 
| | [ INSERT [INVALID KEY] 
NOTES 
@ American National Standard language element extension @ REWRITE accepted as synonym for WRITE. © ACTUAL KEY may be used in place of SYMBOLIC KEY for UNIVAC 9300 System compatibility. 
® Requires preformatting of entire file prior to creation © SEEK not permitted between READ and WRITE @ If AT END is specified, READ is treated as a random read. 
® Default RECORD FORMAT is underlined. 
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12. ASCII Tape Processing 


12.1. GENERAL 


When the user requests it, the SPERRY UNIVAC Operating System/3 (OS/3) COBOL compiler processes and 
produces ASCII tapes. Data management automatically translates the tapes to EBCDIC when reading and to ASCII 
when writing. 


12.2. DECLARATION OF ASCII FILES 


ASCII files must be declared to the compiler by the APPLY ASCII* ON file-name clause. A mix of ASCII and 
non-ASCII files is permitted in the COBOL program. 


& Format: 


APPLY ASCII [ wit BUFFER-OFFSET { FOR BLOCK-LENGTH-CHECK | 


OF integer CHARACTERS 


ON file-name[, file-name] ... . 
Rules: 
1. The APPLY ASCII clause identifies each tape file that contains or receives ASCII data (4.3.2). 


2. The integer CHARACTERS options specifies the number of additional characters that appear at the 
front of each data block in the file. Integer may have a value of 0 to 99. The specified offset applies only 
to files open for input. The offset area cannot be referenced by the program nor can it be created when 
the file is open for output. 


3. The BLOCK-LENGTH-CHECK option applies only to files with a RECORDING MODE IS D clause. 
When specified, input data blocks are assumed to possess a 4-character buffer offset, which contains the 
length of the block. Data management routines validate that each block read contains the number of 
characters specified in this field. When the file is being created, the block length is placed in the 
4-character buffer offset area. 


*Extension to American National Standard COBOL (1968). 
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12.3. RECORDING MODE* CLAUSE 





Format: 


RECORDING MODE IS 


I< ic im!lo 


Rules: 
1. The RECORDING MODE clause is expanded to include the specification of D-type records (5.2.1.4). 
2. A recording mode of D may be specified for ASCII tape files with variable-length records. 


3. Tape files declared as ASCII may also have a recording mode of V because, for ASCII files, D and V are 
synonymous. The D mode is provided for compatibility with other implementors. 


4, The RECORDING MODE IS D clause may be specified for ASCIi tape files which contain 
variable-length records. An option within the APPLY ASCII ON file-name clause allows the specification 


of a buffer offset for any tape input file or the activation of the block length check feature on tape files 
with RECORDING MODE D. 


NOTE: 


Figure 12—1 and Table 12—1 show the physical tape formats and characteristics. Table 12—2 lists the 
ASCII/EBCDIC conversions. 








*Extension to American National Standard COBOL (1968). 
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é U FORMAT RECORDS 


ge fe 
| s | buffer 
| | offset 
eer s eS 
4 T ee T Se 
uNBLockeD | g_ /__ buffer data 
I | offset 
. (te se 
Pe 
I 
BLOCKED | s | buffer us 
offset 
fe eh 


F FORMAT RECORDS 


D FORMAT RECORDS 





i> cata Tia Sy ae aa 
| 
UNBLOCKED | Ss DDDD 
Dele ea 
@ aie 
BLOCKED | s DDDD 
emreeae Py een=l poe 
Ss — Optional 1-character block sequence indicator whose presence is specified by the 


APPLY BLOCK-COUNT clause. 


buffer offset — Optional field at the front of each input data block. Offset may be 
0 to 99 characters in length. This area cannot be referenced by 
program nor can it be created on output files; presence specified by 
the APPLY ASCIt WITH BUFFER-OFFSET OF integer CHARACTERS clause. 


DDDD — Optional block length field in an implified buffer offset area of four characters. 
Block length is created and validated by data management programs. This option 
is specified by the APPLY ASCII BUFFER- OFFSET FOR BLOCK-LENGTH-CHECK 
clause, 


dddd 


Record length. 


S, DDDD, dddd are all in ASCII decimal format. 


Figure 12—1. ASCil Physical Tape Formats 
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Table 12—1, Characteristics of Tape Files Available to COBOL Users 





File APPLY APPLY 
RECORDING | Declared | LABEL RECORDS | BUFFER-OFFSET | BLOCK- 
MODE IS 


As 
EBCDIC 
D 


blocked or 
unblocked 
ASCII STANDARD @) i Optional 
data-name (3) 
OMITTED 
EBCDIC | STANDARD Ga) Optional 
Fr data-name (3) 
blocked or 


Specifications LENGTH- 


unblocked 

ASCII STANDARD @) Optional 
data-name GB) 
OMITTED 

EBcDIC | STANDARD (1) Optional 
data-name GB) 

ASCII STANDARD (2) Optional 

: data-name (3) (5) 


OMITTED 
EBCDIC STANDARD Q) Automatic Optional 
Vv data-name GB) 
blocked or 


NOTES: 














De facto standard as defined by the data management system user guide, UP-8068 (current version). 
American National Standard COBOL (1968) 
Implies presence of system standard labels 1 or 2. 


BLOCK-LENGTH-CHECK specifies that a buffer offset of four characters contains the length of the block for 
verification by data management programs. ‘ 


OM CLOEONG: 


Specifies a 1-character cyclic block sequence indicator (input files only). 
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Table 12—2. ASCII/EBCDIC Conversion (Part 1 of 3) 





ASCII 


AN ONOAAWNH OO 


NONNONNNAN | — A ww we em ao ew 
OahPoNn -OODAN DOR WNH | OO 





BP BRO BR RRR OC. WEA. @ Ret 
ANOAnNAWNH OVAN AM WN OO ON 

















EBCDIC 7 
Signed 
Control Character Symbol } Hox ] Dee | Number 
NUL 00 0 
SOH 01 1 
STX 02 Z 
ETX 03 3 
EOT 37 | 55 
ENQ 2D | 45 
ACK 2E | 46 
BEL 2F 47 
BS 16 22 
HT 05 | 05 
Le 25 | 37 
VT oB | 11 
FF oc 12 
CR 0D 13 
sO OE 14 
SI OF 15 
DLE 10 16 
DCc1 11 17 
DC2 12 18 
DC3 13 19 
pc4 3C 60 
NAK 3D 61 
SYN 32 50 
ETB 26 38 
CAN 18 24 
EM 19 25 
SUB 3F 63 
ESC 27 39 
FS 1c 28 
GS 1D 29 
RS iE 30 
US 1F 31 
SP, SPACE 40 | 64 
! 4F 79 
ve 7F 127 
# 7B | 123 
$ 5B | 91 
% 6C 108 
& 50 80 
¢ 7D 125 
( 4D | 77 
) 5D | 93 
* 5C 92 
+ 4E 78 
‘ 6B 107 
= 60 96 
48 | 75 
/ 61 97 
0 FO | 240 
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Table 12—2, ASCII/EBCDIC Conversion (Part 2 of 3) 


a nee | epcpic | Signed 
ontro aracter ymbo in| oe Number 





OCOMWN DOR WH = 




















< 
> 
? 
@ 
A 
B 
Cc 
D 
E 
F 
G 
H 
| 
J 
K 
L 
M 
N 
10] 
P 
Q 
R 
s 
T 
U 
Vv 
Ww 
Xx 
y: 
Zz 
[ 
\ 
] 
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@ Table 12-2, ASCII/EBCDIC Conversion (Part 3 of 3) 


Contro! Character ESCO Signed 
Bist ia a 








tm N XK SKS OF YMA ODO AGH KH IHTA HH 








PART 4. DEBUGGING AIDS 
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13. Debugging Language 


13.1. GENERAL 


The source program debugging statements, READY TRACE, RESET TRACE, EXHIBIT, and *DEBUG in the 
SPERRY UNIVAC Operating System/3 (OS/3) COBOL, are extensions to American National Standard COBOL (1968). 


The output resulting from the execution of a debugging statement is displayed upon the printer (LFD) name = 


SYSLST. The output may be transferred to tape or disc by including the appropriate job control! statement options 
and format information. Printing is performed after a 1-line paper advance. : 


The debugging statements may be included between procedure division statements, or the statements may be put in 
packet form at the end of the procedure division (13.5). 


13.2. READY TRACE 
Function: 
The execution of a READY TRACE statement produces the output: 
TRACE ON AT line-number. 
When a section or a paragraph is entered for execution, the following output is produced: 
section-name (or unqualified-paragraph-name) line-number 
Format: 
READY TRACE. 


Rule: 


This statement may appear anywhere in the procedure division or in a compile time debugging packet. 


13.3. RESET TRACE 
Function: 


ag The execution of the RESET TRACE statement terminates the functions initiated by READY TRACE and 
produces the following output: 


TRACE OFF AT line-number 
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Format: 





RESET TRACE. 








Rule: 


This statement may appear anywhere in the procedure division or in a debugging packet. 


13.4. EXHIBIT 


Function: 


The execution of the EXHIBIT statement results in a formatted display of identifiers or nonnumeric literals 
listed in the statement. 


Format: 
CHANGED identifier-1 identifi 
EXHIBIT J CHANGED NAMED + eras . ae ‘, eee gra ; a 
a NAMED —— nonnumeric-literal- nonnumeric-literal-n 
Rules: 
1. An identifier may not be an index-data-item. 


2. An identifier length may not exceed 256 bytes. 








3. Nonnumeric literals may not exceed 132 characters in length. 


4. Displayed operands are continued as described by the DISPLAY statement. A maximum logical record 
size of 132 characters is assumed. 


5. An EXHIBIT statement may appear anywhere in the procedure division or in a debugging packet. 


6. The NAMED option produces a noncolumnar display of all operands specified in the EXHIBIT 
statement. The operands are displayed in source order and are formatted as follows: 


s Identifier 
identifying-nameA equal-signA identifiers-valueA 


The identifying-name includes qualifiers and subscripts. A maximum of 130 characters is 
displayed. 


The identifiers-value may be a maximum of 256 characters. If the identifier is a signed numeric 
elementary item, a sign is also displayed following the value. 


a Nonnumeric-literal 


nonnumeric-literal 
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The CHANGED NAMED option produces a noncolumnar display of nonnumeric fiterals and, 
conditionally, the identifiers specified in the EXHIBIT statement. The format sequence of the displayed 
operands is as described in rule 6. If the value of the identifier has not changed since the previous 
execution of this EXHIBIT statement, the identifier is not displayed and space is not reserved for the 
value in the print record. 


All identifier values are considered changed on the initial execution of the statement. If the EXHIBIT 
statement does not contain nonnumeric literals and the value of all identifiers is the same as when this 
EXHIBIT was previously executed, neither a display nor a form advance occurs. 


The CHANGED option produces a columnar display of all nonnumeric literals and the changed values of 
all identifiers. 


If the value of the identifier has not changed since the previous execution of this EXHIBIT statement, 
the positions reserved for the identifier value are displayed containing spaces. All identifier values are 
considered changed on the initial execution of the EXHIBIT statement. 

When the statement contains only identifiers and none of the values has changed, one line of space is 
displayed. The operands are displayed in the order in which they appear in the statement and in the 
following format: 

a Identifier 


identifier-valueA 


The identifier-value may be a maximum of 256 characters. If the identifier is a signed numeric 
elementary item, its sign is displayed following the value. 


a Nonnumeric literals 

nonnumeric-literalA 
lf two distinct EXHIBIT CHANGED NAMED or two EXHIBIT CHANGED statements appear in one 
program, each specifying the same identifiers, the changes in value of the identifiers are associated with 
each of the two separate statements. Depending on the path of program flow, the values of the identifier 


saved for comparison may differ for each of the two statements. 


Variable-length identifiers are not permitted as operands with the CHANGED or CHANGED NAMED 
options. 


13.5. DEBUGGING PACKET 


A packet contains debugging statements referring to a paragraph name or a section name in the procedure division. 
The debug packets are grouped together and placed immediately following the source program. The packet 
statements are compiled with the source program and are executed at object time; the packets produce the same 
result as placing the debug statements directly in the source program following a section name or a paragraph name. 


Each debug packet is preceded by a control card with the following format: 





*DEBUG location 
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Location refers to a section or paragraph name which starts anywhere within margin A; a period is not permitted 
immediately following location. The name, which may be qualified, indicates the starting point in the program 
where execution of the packet is to begin. Location cannot be a paragraph name within any debug packet and the 
same location must not be used in more than one debug control card. 





A debug packet may consist of procedural statements such as GO TO, PERFORM, or ALTER, which may refer to a 
procedure name in any debug packet or in the main body of the procedure division. 


When the source COBOL program is on a library file, the library module containing the source program may also 
contain *DEBUG contro! cards. Regardless of whether the library module contains any *DEBUG cards, when the 
compiler reaches the end of the library module, it will determine if any additional *~DEBUG cards are present in the 
job control stream. If *DEBUG cards are in the job control stream, they are processed as if they were contained at 
the end of the library module. If no “DEBUG cards are present in the job control stream, the process of reading 
COBOL input to the compiler is terminated. 


Example: 


// EXEC COBOL, library-name 

// PARAM IN = PROGNAME/LIBIN 
// PARAM LST = (0,C,S) 

/$ 

*DEBUG 


*DEBUG 





/* 
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14. Sample Program 1 


14.1. GENERAL 


In the SPERRY UNIVAC Operating System/3 (OS/3), job control defines the job and directs its execution. The 
control stream interfaces the OS/3 COBOL program with the job control. 


Each job executed in the system must have a unique name, which is used by the system to identify and locate the 
job control stream. Devices are assigned for each input or output file required by job control and the program. 
Device assignments for direct access devices must include the volume number (identifies disc pack), extent request 
(establishing a new file or extending an existing file), and file label information. 


The following program does not show any job control statements required for compilation, linking, or execution. 
See the job control user guide, UP-8065 (current version) for a complete discussion of job control; also see the 
@ system service programs user guide, UP-8062 (current version) for a complete discussion of the linkage editor. — 


14.2, PROGO1 


This program illustrates the creation of an indexed sequential file from the card reader. The PROGRAM-ID is 
PROGO1. 


The disc file consists of 80 character records, 10 records per block. The sequence of the records is by department 
number. 


The INVALID KEY is activated when a sequence or duplicate error occurs within the department number field. The 
record in error is printed on the report, with a message DUPLICATE OR SEO ERROR, and is bypassed from being 
written on the disc, and card processing from the reader continues until end of file is sensed. 


The end-of-job routine prints the total number of records processed, prints the message END OF JOB, closes ail files, 
and terminates the job. 





LINE NOs 
00001 
00002 
00003 
og004 
9000s 
00006 
ooo07 
00008 
00009 
ooorn 
oooll 
00012 
00013 
oool4 
0001s 
o0o16 
o0017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
0025 
00026 
00027 


00028 


SEQe 
gooloo) 
g01002 
00!003 
oo1004 
001005 
oeings 
001007 
001008 
001009 
On1010 
ao1ont 
001012 
901013 
001014 
oo101s 
901016 
001017 
oo1otea 
001019 
001020 
001021 
001022 
901023 
oo1n24 
901025 
n01026 
ooto027 


001028 


SourRcE STATEMENT 
IOENTIFICATION DIVISION. 
PROGRAM@IDse PROGOIL. 

AUThHORe SYSTEMS PUB TCATIONS. 
INSTALLATIONe OEPT 48660 
DATESWRITTENs CCT 17 19736 


DATECOMPILEN. DEC 12 1973-4 


REMARKS. CREATING AN INDEXED SEQUENTIAL FILEe- 


ENVIRONMENT DIVISIONe 
CONFIGURATION SECTION, 
SOURCESCOMPUTERs UNTVAC=9030, 
OBVECT@COMPUTERs UNTVACe9030, 
SPECTAL@NAMES. 
SYSLST 16 PRINTIT. 
INPUT@*OUTPUT SECTION 
FILE*-CONTROL. 
SELECT NEWFIL ASSIGN TO DOISCR416 
ACCESS 15 SEQUENTIAL 
ORGANIZATION IS INDEXED Ss 
RESERVE NO ALTERNATE AREA 
RECORD KEY IS OFPTNO. 
SELECT COS ASSIGN TO CARD@READEP. 
SELECT LIST ASSIGN TO PRINTERe 
DATA OIVISION, 
FILE SECTION. 
FO NEWFIE’ 
RECOROING MODE 15 F 
LABEL RECORDS ARE STANDARD 


BLOCK CONTAINS 10 RECORDS 





IDEN, 
PROGOI 
PROGOI 
PROGNI 
PROGOI 
PROGOI 
PROGOI] 
PROGO] 
PROGO] 
PROGOI] 
PRoGO! 
PROGOIL 
PROGO] 
PROGO! 
PROGO! 
PROGO! 
PROGOIL 
PROGDI 
PROGOIL 
PROGOIL 
PROGO] 
PROGOtL 
PROGO! 
PROGOI 
PROGO? 
PROGO! 
PROGOS 
PROGO] 


PROGOL 


PaGE 


oonnl 





=— 
cage 
Sad 
2 
°o 
c 
P:] 
QO 
m 
2 
io) 
~) 
m 
S 
” 
= 
2 
G) 








Y3SWNN-dN 
Z ‘AeY LS08 
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VAST 3Lvadn 





“LINE NOs 
n0029 
00030 
non31 
00032 
10933 
nno34 
00035 
gonse 
00037 
N003R | 
10039 
oco4sen 
90041 
aan4d2 
10083 
nog44 
004s 
00046 
0047 
qoo4a 
noo49 
e009Sn 
TONS1 
o00s2 
90053 
nons54 
00055 
70054 


90057 


SEQe 

001029 
901030 
oo2n0) 
on2n02 
eo2003 
fa2004 
qn2n05 
uA20u06 
an2nu7 
KO20UB 
an2n09g 
Ga2016 
SO2011 

NO2012 
go2013 
Ag2014 
NC2015 
vU2016 
On2017 
COZILe 
uvoa2ol9 
se2o2n 
62021 

902922 
Goz023 
fO2024 
06202S 


902026 


602927° 


OL 


SOURCE STATEMENT 
CATA RECORD IS NISCOle 
DISCoOle 
O03 DEPTNO PIC XxXX, 
M3 FILLER PIC x, 
O3 SUPPLY=|"O PIC XXXXe 
O3 FILLER PIC xtAde 
03 NAME PIC XC31L)6 
FILLER PIC XuXe 
O03 OWTY PIC 99% 
O3 FILLER PIC Kt5)-6 
O03 AMOUNT PIC 9(6)}6 
Q3 FILLER PIC Xtllde 
O3 Pate X(bde 
03 DCOOE x. 
cos 
LAREL RECORDS ARE OMITTER 
RECORNING “OMF 1S F 
RECORD CONTAINS PO CHARACTERS 
DATA RECORD IS CARDIN, 
CARD Ue 
C3 CORPT PIC Xlude 
93 FILLEP PIC X, 
G3 CSUPNO PIC XK¢(4). 
O3 FILLER PIC XKth). 
O3 CNAME PIC Xt31)0 
3 FILLER PIC XxX-5 
C3 C&TY PIC 99%, 


FILLER PIC X¢5). 


CamMT PIC Flbre 





IDEN, 
PROGO!L 
PROGOI 
PROGOI 
PROGOIL 
PROGO! 
PROGOL 
PROGOI 
PROGO!I 
PROGOL 
PROGNIL 
PRIGOI 
PROGOIL 
PROGO! 
PROGOI 
PROGOL 
PROGM! 
PROGOL 
PROGOI 
PROGOL 
PROGDI 
PROGO) 
PROGOIL 
PROG 
PROGOIL 
PROGOIL 
PROGOI 
PROGNI 
PROGO! 


PROGOI 


PAGE 


oon02 








Z “Ae LS08 









YASEWNN-dN 
¢/wayshg BuneredQ OVAINN AYY3dS 


39Vd } 13A47 aLlvadn 


YASWNN-dN 
Z “A®Y LS08 








LINE NOe SEGe SOURCE STATEMENT IDEN, PAGE ao0nn3 
noose no2028 C3 FILLER PIC Xtllde PROGOI 
00089 un2n2¢ 03 CDATE PIC Xtb)e PROGOI 
9006U ny2039 N3 COCONE PIC XxX. PROGOI 
ooget no2zn3) Fu LIST PROGOI 
N0042 2n2032 LABEL RECORDS ark OMITTER PROGO] 
00063 0n2033 CATA RECORD IS AUT. PROGO! 
90064 902034 Ol QUT. PROGO! w 
20065 103001 O3 FILLER PIC xXrINde PRONGOIL m 
10066 no3co2 O3 POEPT PIC XxKXXe PROGDI es] 
< 
0047 nu3nu3 O03 FILLER PIC xeto). PROGOI c 
nooea ACINOY AY PSUPNO PIC KeKKe PROGO] z 
NO049 03005 N3 FILLER PIC X10). PROGO! > 
on070 nn4enoy M3 PHAME PIC X¢31)6 PROGOI pe 
N07] anande O03 FILLER PIC XI5), PPOGOI a3 
00072 ON4ON3Z C3 PLTY PIC WGe PROGOI] 3 
no0n73 no¥oo4 O3 FILLER PIC XxXX, PROGQ) é 
wW 
g0074 = Anatus 03 PAMT PIC 9(b)6 PROGOI a 
90075 JC4004b G3 FILLER PIC Ktllde PROGD1 3 
~~ 
659076 N040U7 M3 PDATE PIC Xb). PROGOI a) 
n0c77 104n08 O03 FILLF® PIC Xehlde PROGO} 
90078 no#o09 O23 PCODE PIC Xe PROGOI 
0079 An4o1a O3 FILLER FIC XKEl7e PROGOI 
ng0an DOHOLL ORK ING@STORAGE SECTION. PROGOI] 
90981 ao4¥or2 77 CTR PIC 9999 VALUE ZERO. PROGOI c 
“0 
NOnKR2 ne#nat3s at TLINEs PROGO] 
n0fK83 on4o14 03 FILLER PIO x¢5S) VALUF SPACES, PROGOI m 
cones Ho4#ols O3 DESCRP PIC Xt23) VALUE * TOTAL NUMRER OF RECORDS % © PROGO!L es 
nonas NO4Ols O3 FILLER PIC x05) VALUE SPACFS. PROGOI r 
on0H%6 On4ol7 03 PCTR PIC 2226 PROGOE 














HASWON-dN 
z ‘AG L908 


LINE NO. SEWe SOURCE STATEMENT IDEN. PAGE OOn04 
00087 1004018 O3 FILLER PIC X(45) VALUE SPACES. PROGO] 
n00e8 N04N19 PROCEDURE DIVISIONe PROGOL 
noos9 004029 INITIALIZE. . PROGOI 
oo0en on4o21 OPEN INPUT CDSe PROGOI! 
ooo9t 004022 OPEN OUTPUT MEWrIbe LIST. PROGOL 
90092 no4n23 MOVE SPACES TO NUT. PROGOI 
90093 On4o24 + PROGOL 
90094 oo¢n2s READ CDS AT END GO To E0Je PROGOIL 
00095 OO4N24 MOVE CDEPT TO DEFPTNS, PDEPT. PROGOIL 
00096 Nn4u027 MOVE CSUPNOQ TO SUPPLY#NO, PSHPNOS PROGOL 
No097 op4u2z6 MOVE CNAME TO NAMEs PNAME, PROGO} 
N0098 O004n29 MOVE CA“T TO AMOQUNTs PArITe PROGO! 
n0099 64035 MOVE COATE TC DalEs PDATE. PROGOI 
golos NO4u31 MOVE CDCODE TO nCOMDE, PCODE, PROGO! 
ein ten! 004632 RITE DISCHL ENYVALIO KEY GO TO ERROR{) AND 1 TO CTRe PROGO] 
901n2 904933 «RITE OUT REFUORE ADVANCING 2 LIHESe GO TC RO. PROGOI 


NOLO QONSCOL ERRORD, PROGO) 


” 
is) 
m 
=] 
| 
~< 
e 
= 
< 
> 
oO 
Oo 
3 
oy 
as 
3 
a 
ri 
o 
3 
— 
Ww 


ois 998902 DISPLAY *nuPLICATE OR SEQ ERZOR® UPON PRINTIT® PROGOL 
oo1as onsu03 DISPLAY CARDIN POK PRINT Ve PROGO! 
no1cs ce§co4 MOVE SPACES TO nlT YRITE OUT AFTER ACVANCING 2 LIWES. PROGOL 
0107 oosnGc4 GO To RdOe : PROGOIL 
n018 NnNS00S EOQJ. PROGOI 
oo1n9? 205006 MOVE CTR Th PCTRe MOVE TLINE TO OUTe “RITE OUT BEFORE PROGOIL 
aon 605007 ADVANCING 1 LINE : PROGOL 


ool nosoGa DISPLAY "END OF JOE® UPON PRINTYT. PROGOI 


GOLr12 aesan¢e CLOSE CNS, NEWFyls LISTe PROGO] 


13A371 3Livadn 


1o113 ansoid STOP RUN. PRGSO}I 





YS8WNN-dnN 
c “A8Y L908 


tL 





6e0C B CHICAGS 20 


6801 LIST 45 


ONILSIT LAdLNO ‘H'bL 


6802 F NUMBER 45 

DUPLICATE OR SEQ ERROR 

66uz 1106 E G PAGE 1019734 
6803 TOMAS 140173 
6e04 CARDS 190173 
6805 GARRY 190173 
6804 KLINK 1gl973 


68U7 PAUL inl973 





660 ROBERT 191973 
6809 SANFORD 1p 1973 


6810 WILLIAM 191973 


“” 
uv 
m 
a) 
Bs) 
< 
c 
< 
< 
> 
ro) 
{o) 
i 
g. 
a 
: 
3 
Px) 


6811 COMPARE 1nl¥73 

bai2 GONE 1p1973 

6813 KLINE 11973 
TOTAL NUMBER OF kKECOROS 


ENL OF yOB 


TW3A371 3ivadn 
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15. Sample Program 2 


15.1. GENERAL 


In the SPERRY UNIVAC Operating System/3 (OS/3), job control defines the job and directs its execution. The 
control stream interfaces the COBOL program with the job control. 


Each job executed in the system must have a unique name, which is used by the system to identify and locate the 
job control stream. 


Devices are assigned for each input and output file required by job control and the COBOL program. Device 
assignments for direct access devices must include the volume number (identifies disc pack), extent request 
(establishing a new file or extending an existing file), and file label information. 

& The following program does not illustrate any job control statements required for compilation, linking, or execution. 


See the job control user guide, UP-8065 (current version) for a complete discussion of job control; also see the 
system service programs manual, UP-8403 (current version) for a complete discussion of the linkage editor. 


15.2. PROGO2 


The PROGRAM-ID is PROGO2. This program illustrates the use of random retrieval from the file created in the 
previous program (PROGO1). 


Newfil is now labeled as an input-output file (1-0). This allows both retrieval and updating. 


The data division is basically the same as loading the file except that the ACCESS IS RANDOM clause is used in lieu 
of ACCESS IS SEQUENTIAL. 


SYMBOLIC and RECORD KEY clauses are required in this type of file organization. The data-names for these 
clauses must be unique; however, the information must be identical. 


The INVALID KEY is activated when a matching record is not found. The no-hit routine identifies the record and 
then branches to read the next record from the card reader. 


The end-of-job routine prints the total number of records, displays the END OF JOB message, closes all files, and 
terminates the job. 








LINE NOs 
ooool 
00002 
00003 
00004 
0000s 
00006 
00007 
00008 
oo0o09 
oaogin 
00011 
00012 
00013 
ooo14 
oooi1s 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 


coo0zs 


SEQe 
oo1001 
001002 
001003 
oo1004 
001005 
001006 
001007 
001008 
091009 
oo1010 
001011 
001012 
001013 
oor10l4 
oo1ois 
oo:01s 
001016 
001017 
GO1O1A 
ool019 
901029 
on1lo021 
001022 
003001 
003002 
003003 
003004 


003008 


SOURCE STATEMENT 
IDENTIFICATION OLVIGIONS 
PROGRAM*IDe PROGD2Z. 
AUTHOR. YOUR NAMEe 
INSTALLATION. DEPT 4866.6 
DATE*WRITTEN, OCT 12 1973. 
DATECOMPILED. OCT 22 1973. 
REMARKS» SUPPLY REPORT BY DEPARTMENT. 
ENVIRONMENT DIVISIONS 
CONFIGURATION SECTION 
SOURCE*COMPUTER* UNIVAC=90 30. 
OBJECT*COMPUTERe UNTVAC=9030, 
SPECTAL@NAMES, . 
SYSCHAN=1S IS NFXT@PAGEs 
SYSLST IS PRINTIT. 
INPUT=QUTPUT SECTION 
FILE*CONTROL 
SELECT CDS ASSIGN TO CARD@READER, 
SELECT NEWFIL ASSIGN TO DISC=3416 
ACCESS 1S RANDOM 
ORGANIZATION IS INDEXED» 
SYMBOLIC KEY IS KEYeID 
RECORD KEY IS DFPTNOs 
SELECT LIST ASSIGN TO PRINTER, 
DATA DIVISION. 
FILE SECTION. 
Fu CDS, 


LABEL RECORDS ARE OMITTED 


RECOROING MODE 1S F 


TOEN. 
PROGOZ2 
PROGO2 
PROGO2 
PROGOZ 
PROGO2 
PROGOZ 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGOZ 
PROGO2 
PROGO2Z 
PROGO2 
PROGO2 
PROGN2 
PROGOZ 
PROGO2 
PROGO2 
PROGO2 
PROGO2 


PROGO2 


PAGE 


oonol 
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13A371 aLvadn 





LINE NO. 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
ooo4o 
ooo4s 
00042 
00043 
oo044 
oq04#s 
00046 
00047 
00048 
00049 
eoosn 
go00st 
00052 
00053 
000s4 
00055 
00056 


00087 


SEQe 
003006 
003007 
003008 
003009 
003010 
00301) 
003012 
003013 
003014 
003015 
003016 
003017 
003018 
003019 
003020 
003021 
003022 
903023 
003024 
003025 
003026 
003027 
093028 
003029 
003030 
003031 
003032 
003033 


603034 


oi 


ol 


FO 


ol 





SOURCE STATEMENT 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD 1S HOCARD. 
HDCARDs 

03 DATE“CD PIC x8). 

03 FILLER PIC X(72)6 
CARDINe 

O3 CDEPT PIC XXxXe 

03 FILLER PIC Xx, 

03 CSUPNO PIC X(4)- 

03 FILLER PIC X( be 

03 CNAME PIC X(31)6 

03 FILLER PIC XxXe 

03 CQTY PIC 9a6 

03 FILLER PIC X¢5). 

03 CAMT PIC 9999V99. 

03 FILLER PIC X¢ttde 

O3 CDATE PIC Xlade 

03 CDCOOE PIC X, 

NEWFIL 

RECORDING MODE 1S F 

LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 10 RECORDS 
DATA RECORD IS nISCcOle 
OISCole 

03 DEPTNO PIC XXXKe 

03 FILLER PIC Xx, 

03 OSUPNO PIC X¢(4)e6 

03 FILLER PIC Xth)~ 


O3 DNAME PIC Alalde 


IDEN. 
PROGOZ2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGOZ 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGOD2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGOZ2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGOD2 
PROGO2 
PROGOZ 


PROGD2 


z ‘AeY LGO8 


PAGE 0002 
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LINE NO, 
ooosa 
00089 
o006n 
00061 
00062 
00063 
00064 
oo06s 
000646 
00067 
oo06ea 
oo0e9 
00070 
0007) 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
o00ee 
0006! 
00082 
00083 
00084 
oooss 


00066 


SEQ. 
603035 
003036 
003037 
003038 
003039 
003040 
003041 

00400) 

004002 
004003 
004004 
004005 
004006 
004007 
004008 
04009 
oo4#olo 
004011 

004012 
004013 
004014 
oo4oie 
004019 
004020 
004021 

004022 
004023 
004027 


004028 


03 
03 
03 
03 
03 
o3 


03 


SOURCE STATEMENT 
FILLER PIC XxXe 
oQTy PIC 996 
FILLER K(Sde 
AMOUNT POIIVIG. 
FILLER X(11)06 


DATE K(6)6 


OCODE Ke 


LIsT 


LABEL RECORDS ARE OMITTED 


DATA RECORD IS OUTe 


OUT PIC X(132)6 


LINE1e 


03 
03 
03 
03 
3 
03 
03 
03 
03 
03 
03 
03 
03 
o3 


03 


FILLER PIC X(1O)6 
PDEPT PIC XXXXKe 
FILLER PIC Xt10)6 
POATE PIC X(6)e 
FILLER PIC XC10)6 
PSUPNO PIC XXXXKe 
FELLER PIC Xt10)~ 
PNAME PIC X(31)6 
FILLER PIC X(10). 
PBAL PIC 29222299. 
FILLER PIC X(S)e 
PAMT PIC 20Z2Z2099e 
FILLER PIC X(6). 
PNBAL PIC 2Z,222699%% 


FILLER PIC X, 


TOTLINE. 


03 


FILLER PIC X¢(97)6 


IDEN, 
PROGO2 
PROGO2 
PROGD2 
PROGOZ 
PROGO2 
PROGOZ 
PROGO2 
PROGO2 
PROGO2Z 
PROGOZ 
PROGO2 
PROGO2Z 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2Z 
PROGOZ 
PROGO2 
PROGO2Z 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGOZ 
PROGO2 
PROGO2 
PROGO2 


PROGO2 





PAGE 


o0no3 
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LINE NO. 
00087 
00068 
00069 
00090 
e009) 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
oo1o00 
oorol 
00102 
00103 
oo104 
00105 
00106 
00107 
oo1cea 
00109 


00110 


ool) 


00132 


oo113 


oo1l4 


ooris 


SEQ. 
004029 
004030 
004031 
004032 
006001 
006002 
006003 
006004 
006012 
océ6013 
006015 
006021 
006022 
006023 
006024 
006025 
006026 
006027 
006028 
006029 
006030 
006031 
006032 
006033 
006034 
007001 
007002 
0o07c03 


007004 


SOURCE STATEMENT 
O3 PFINAL PIC Xt11)6 

O3 FILLER PIC Xe14), 

O3 PTOT PIC 2207220990 


03 FILLER Pic xX; 


WORKING=STORAGE SECTION. 


77 
77 
77 
77 
77 
77 


ol 


PF PIC X€11) VALUE "FINAL TOTAL®, 
TOTAMT PIC S9999V99 VALUE ZERO. 
KEY=1D PIC XXXX, 

LINE*COUNT PIC 9% VALUE ZERO, 
PGCT PIC 9999 VaLUE ZERO. 

CAMT] PIC $9999V99 VALUE ZEROs 
HEADING1¢ 

O03 FILLER PIC X(35) VALUE SPACES. 
03 REPT PIC X(27) VALVE "SUPPLY REPORT BY DEPARTMENT % 
O3 FILLER PIC X(47) VALUE SPACES. 

03 MODAYR, 

O04 MO PIC XXKe 

04 MOS PIC K VALUE 

04 DA PIC XX. 

O04 DAS PIC XK VA)UE 

O4 YR PIC XX- 

O3 FILLER PIC X¢S) VALUE SPACES. 

03 PPAGE PIC X(5) VALUE "PAGE®, 

03 PPAGNO PIC Z7Z9 VALUE ZERO. 

03 FILLER PIC X VALUE SPACES. 

HEADING2. 
O03 FILLER X¢10) VALUE SPACES. 
03 T1 XK 


VALUE "DEPTS, 


03 FILLER Xcll) VALUE SPACES. 





IDEN, 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGO2 
PROGOZ 
PROGOZ2 
PROGO2 
PROGO2 
PROGO2 
PROGOZ2 
PROGO2 
PROGOZ 
PROGO2 
PROGO2 
PROGOZ2 
PROGO2 
PROGO2 
PROGOZ2 


PROGO2 





wAaaWNN-dN 
z ‘AB LS08 


PaGE O00n04 


” 
a) 
m 
e.) 
a 
we 
Cc 
a4 
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ra) 
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LINE NO. SEQe “SOURCE STATEMENT IDEN. PaGE cOnOs 


Y3ESWNN-dN 
Z “A8Y L508 






00116 007005 03 T2 PIC XXXX VALUE *DATE*, PROGO2Z 


oo1i7 007006 03 FILLER PIC X(9) VALVE SPACES, PROGO2 


00118 007007 03°73 PIC X¢7) VALUE ITEM NOP. PROGO2 


00119 907008 03 FILLER PIC X(15) VALUE SPACES. PROGOZ 
00120 007009 03 T4 PIC X¢8) VALUE *EMPLOYEE'. PROGOZ 
90121 oo7010 03 FILLER X(26) VALUE SPACES PROGO2 
00122 007015 03 OLOBAL PIC X(11) VALUE "OLD BALANCE®. PROGOZ 
00123 o07016 03 FILLER PIC XxXXX VALUE SPACES, PROGOZ 
00124 007017 03 NEWAMT PIC X(6) VALUE * AMOUNTS. PROGOZ 
00128 007018 03 FILLER PIC X(S) VALUE SPACES. PROGO2 
00126 © 907019 03 NEWBAL PIC X¢11) VALUE "NEW BALANCE®. PROGOZ 
00127 = 07020 03 FILLER PIC X VALUE SPACE. PROGOZ 
M0128 NOBOO1 PROCEDURE DIVISIONs PROGOZ 
90129 NO8O10 INITIALIZEs PROGD2 
00130 = onsen) OPEN INPUT CDSe PROGN2 
9013) neeot2 OPEN Teo NEAFIL; PROGOZ 
00132» 0ee13 OPEN OUTPUT LIST« PROGO2 


C0133 o0801s MOVE ZERQ TO TOTAMTs LIVE*COUNT. PROGOZ2 





€/wieysAg BuneiedQ OVAINN AYYadS 


00134 ONBOIS Fi PROGO2 
90135 608017 READ CDS AT END G0 TO EUJe PROGOZ 
CO136 No8o0ls MOVE DATE@CD TO MODAYRe PERFOR™ PTITEs PROGOZ 
00137 008019 kOe PROGOZ2 
g0138 908020 READ COS AT END GO TO E0de PROGO2 
00139 08021 IF LINE«COUNT > 60 PERFORM PTITFe PROGQ2 
90140 008022 MOVE COEPT TO KFY~ID. PROGO2 
gor4t 008023 READ NEWFIL INVALID KEY GO TO NOfHIT. PROGOZ2 
Col42 oo8024 MOVE DEPTNO TO POEPT. PROGOD2 
00143 008025 MOVE ONAME TO PHAMES PROGO2 


oo144 Onen26 MOVE AMOUNT TO PBALs PROGO2 





39Vd | 13A3517 3ivadn 








Sg 
z2q 
: es 
a 2 
LINE NO. SEQ. SOURCE STATEMENT TOEN, PAGE 00006 mis 
oo14s 008027 MOVE DSUPNO TO PSUPNO. PROGD2 
po14e 008028 MOVE COATE TO PHATE. PROGOZ 
OO147 008029 MOVE CAMT TO PAmTe PROGO2 
00148 0080306 MOVE CAMT TO CAMTIe PROGO2 
00149 008031 ADD AMOUNT TO CaMT 1. PROGO2 
00150 008032 MOVE CAMT1 TO PNBALS PROGOZ 
00181 008033 ADD CAMT1 TO TOTAMT. PROGOZ 4 
00182 008034 MOVE CAMT1 TO AMOUNT. PROGOZ 5 
00153 0086035 . WRITE LENE? APTER ADVANCING 2 LYNESe PROGO2 2 
00154 G08036 ADD 3 TO LINE*CQUNT. MOVE SPACES TO OUT. PROGO2 = 
0015S 908037 WRITE O1SCOl INVALID KEY GO TO NOHMHI Te PROGN2 < 
00156 008038 MOVE ZERO TO CAnTle PROGO2 B 
00157 008039 GO TO RDI. PROGO2 (2) 
00188 008040 PTITEs MOVE 0 TO LINE=COUNT. PROGO2 E 
00189 00804} MOVE SPACES TO OUT. WRITE OUT AFTER ADVANCING NEXT=PaGE< PROGO2 = 
00160 008042 ADO 1 TO PGCTe MOVE PGCT TO PPAGNO,. ; PROGO2 @ 
Oo16! 908043 MOVE HEADING! To OUTe WRITE OUT AFTER ADVANCING 1 LINEe PROGOZ z 
00162 Oneo44 MOVE SPACES TO HUTe #RITE OUT AFTER ADVANCING | LINEe PROGO2 3 
00163 oeso4s MOVE HEADING2 Foe OUT WRITE ONT AFTER ADVANCING 2 LINESe PROGO2 ~ 
00164 NO8N46 MOVE SPACES TO nlTe ADD 4 TNO LINE=COUNTe PROGO2 
00165 909050 EQJ. PROGOZ 
00166 angos2 MOVE TOTAMT TO pTOT,. PROGO2 
00167 009053 MOVE PF TO PFINALs PROGOZ 
90168 ongos4 HRITE TOTLINE AETER AOVANCING 2 LINESe PROGG2 S 
00169 0e905s OISPLAY "END OF VOB* UPON PRINTIT.S PROGO2 5 
cpi7¢n 00906 CLOSE COS» NEWFIL») LISTe PROGOZ r 
00171 009057 STOP RUN. PRoGO2 ~ 
00172 009060 NOSHITs PROGD2 = 


00173 009061 DISPLAY *THIS RFCORD IS NOT FOUND® UPON FRINTITe PROGN2 





UPDATE LEVEL 


2090ud *tuy O1 09 990600 4étoo 
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UPDATE LEVEL 


16. Sample Program 3 


16.1. GENERAL 


In the SPERRY UNIVAC Operating System/3 (OS/3), job control defines the job and directs its execution. The 
control stream interfaces the COBOL program with the job control. 


Each job executed in the system must have a unique name which is used by the system to identify and to locate the. 
job control stream. Devices are assigned for each input and output file required by job control and the COBOL 
program. Device assignments for direct access devices must include volume number (identifies disc pack), extent 
request (establishing a new file or extending an existing one), and file label information. 


The following program does not illustrate any job control statements required for either compilation, linking, or 
execution. See the job control user guide, UP-8065 (current version) for a complete discussion of job control; also 
@ see system service programs manual, UP-8403 (current version) for a complete discussion of the linkage editor. 


16.2. PROGO3 


The PROGRAM-ID is PROGOS. This program adds new records to the indexed sequential file created with program 
PROGO1. 


Newfil must be opened for I-O. The INSERT statement is used in placed of the WRITE statement. The clauses: 
ACCESS IS RANDOM, SYMBOLIC KEY, and RECORD KEY must be specified when this type of processing is 
desired. 


The INVALID KEY no-hit is activated if a duplicate record is detected.. 


LINE NO. 
00001 
00002 
00003 
00004 
00008 
00006 
00007 
o0008 
00009 
00010 
00011 
00012 
00013 
ooo14 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 


00028 


SEQe 
001001 
001002 
001003 
oor004 
003005 


001006 


001007 


001008 
o01no09 
001010 
oo1ol1 
oolo12 
o01014 
oo101s 
oa1o0is 
oniotse 
001017 
001018 
001019 
001020 
ooto21 
001022 
oo2001 
002002 
003001 
003002 
003003 


003904 





SOURCE STATEMENT 
IDENTIFICATION DIVIGION, 
PROGRAMeI De. PRNOGOI. 
AUTHOR». YOUR NAMEs 
INSTALLATIONs MEPT 48666 
DATE@WRITTENS OCT 17 19736 
DATE=COMPILED,. OCT 92 19736 
REMARKSe ADO NEW RECORDS TO EXISTING 
ENVIRONMENT DIVISIONe 
CONFIGURATION SECTIONs 
SOURCE COMPUTER. UNIVAC#=90306 
OBJECT=COMPUTERs UNIVAC# 90306 
SPECIAL*NAMES. 
SYSLST 1S PRINTIT. 
INPUT=OUTPUT SFCTIONe 
FILE@CONTROL. 
SELECT CDS ASSIGN TO CARD=READER. 
SELECT NEWFIL ASSIGN TO DISC#A416 
ACCESS 15 RANDOM 
ORGANIZATION IS INDEXED? 
SYMBOLIC KEY IS KEY*ID 
RECORD KEY IS DFPTNOs 
SELECT LIST ASSIGN TO PRINTER, 
1=-O-CONTROL, 
APPLY VERIFY ON NEWFIL. 
DATA DIVISION. 
FILE SECTION. 
FD cOS 


LABEL RECORDS ApE OMITTED 


INDEXED SEQUENTIAL FILEs 





TOEN,. 
PROGO3 
PROGO3 
PROGOS 
PROGOS 
PROGOS 
PROGOS 
PROGO3 
PROGO3 
PROGO3 


PROGO3 


~PROGO3 


PROGOS 
PROGO3 
PROGO3 
PROGOS 
PROGO3 
PROGOS 
PROGO3 
PROGO3 
PRQGO3 
PROGOS 
PROGOS 
PRUGO3 
PROGOS 
PROGO3 
PROGO3 
PROGO3 


PROGO3 





PAGE 
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—_ 
sd 
w 
” 
co) 
Cc 
BY 
2) 
m 
Q 
Oo 
=] 
m 
me 
“” 
= 
2 
Gq) 
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LINE NO. 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
g0038 
00939 
0g040 
g004) 
nan42 
aon43 
n0044 
9004s 
oOn4s 
no0047 
00n48 
90049 
oo00s0 
noos) 


00082 


00083 


no0s4 


900ss 


o00sé 


no00s7 


SEQe 
903004 
003005 
003006 
go03007 
003008 
003009 
903010 
oo301t 
903012 
003013 
003014 
gq3015 
003016 
003n17 
003018 
003019 
0e¢3020 
003921 
003622 
003023 
003024 
003025 
003026 
003027 
003028 
0N3029 
003030 
003031 


003032 


SOURCE STATEMENT 
RECORDING MODE 15 F 
RECORD CONTAINS 80 CHARACTERS 
DATA RECORD IS CARDINe 
CARDING 
03 COEPT PIC XXxxX, 

O3 FILLER PIC X, 

O03 CSUPNOA PIC X(4)- 

O3 FILLER PIC Xth). 

O3 CNAMF PIC X(31)6 

O3 FILLER PIC XxX. 

03 CQTY PIC 996 

O3 FILLER PIC X(5). 

03 CAMT PIC 9999V99. 
O3 FILLER PIC XC11}. 
03 CDATE PIC Klas 

93 COCODE PIC xX: 
NEwFIL 

RECORDING MODE 1S F 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 19 RECORDS 
DATA RECORD IS MISCO. 
DISCOl. 

3 DEPTNO PIC XXXX. 

O3 FILLER PIC X, 

03 DSUPNO PIC Xt4). 

O3 FILLER PIC Ktb)e 

03 DNAME PIC XC31D6 

O3 FILLER PIC XxX. 


G3 ORTY PIC 996 


IDEN. 
PROGOS 
PROGO3 
PROGO3 
PROGOS 
PROGOS 
PROGOS 
PROGOS 
PROGOS 
PROGOS 
PROGO3 
PROGO3 


PROGO3 


 PROGOS 


PROGO3 
PROGO3 
PROGOS 
PROGO 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGOS 
PROGOS 
PROGOS 
PROGOS 
PROGOS 
PROGOS 


PROGO3 


PAGE 
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LINE NOe 


90056 


oo00s9 


0006n 


00061 


00062 


00063 


a0064 


0006S 


00066 


00067 


90068 


00069 


90070 


90071 


00072 


00073 


oao74 


90075 


00076 


00077 


coo7eR 


00079 


00080 


00081 


00082 


00083 


00084 


0006s 


o0084 


SEQe 
003033 
003034 
003035 
003036 
003037 
no4oo! 
ga4002 
004003 
004004 
006001 
ooso004 
oo0soo)! 
a006n10 
ooeoll 
oosol2 
go0eols 
oceols 
906017 
a08nis 
008019? 
008020 
008022 
008023 
008027 
o06o2a 
008029 
009080 
009052 


009053 


SOURCE STATEMENT 
O3 FILLER PIC X(5). 
03 AMOUNT PIC 9999V99, 
O3 FILLER PIC Xtllde 
03 OATE X¢6). 
03 OCODE Xx. 
LIstT 
LABEL RECORDS ARE OMITTED 
DATA RECORD IS nUTe 
ol OUT PIC XKt132)6 
WORK ING@STORAGE SECTION, 
77) KEYeID PIC KXXX, 
PROCEDURE DIVISIONe 
INITIALIZEe 
OPEN INPUT COS. 
OPEN [0 NEAFIL. 
OPEN OUTPUT LISTe 
ROLe 
READ COS AT END GO TO FON. 
MOVE CDEPT TO KFYoID. 
READ NEWFIL INVALID KEY GO To NFAPRECORD. 
NEW@RECORDe 
MOVE CAQDIN TO AUT, 
WRITE OUT AFTER ADVANCING 
MOVE SPACES TO AUT. 
INSERT DISCO] FROM CAROIN INVALED KEY 
GO TO RDte 
EQJe 
MOVE SPACES TO NUT. 


WRITE OUT AFTER ADVANCING 2 LINESe 





IDEN. 
PROGN3 
PROGO3 
PROGOS 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGOS 
PROGOS 
PROGO3 
PROGO3 


PRUGO3S 


PROGO3 


PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGO3 
PROGN3 


PROGO3 


PAGE 


00no3 








YaSWNN-dN 
Z ‘ABY LG08 


” 
U 
m 
a 
x 
~< 
Cc 
€ 
< 
> 
i) 
Oo 
g 
Py 
=. 
3 
a 
< 
3 
3 
— 
w 


3A371 3LVadn 





LINE NQ. 


OO0K7 


onoes 


9n069 


o0n90 


0091 


Hna0g2 


00073 


10094 


SED 
909055 
909956 
§o9a0s7 
angn6éo 
angel 
909062 
109063 


JO9C6S 


OISPLAY 


CLOSE CoS, 


SnuRcE STATEMENT 


STOP RUN. 


NOenIT,. 


DISPLAY 


‘END OF JOB* UPON PRINTITe 


NEF tls LIST. 


CISPLAY KEY=I0 WRON PRIVTIT,. 


MOVE SPACES TO AUT. YRITE OUT AFTER ADVANCING 


69 To 


RY1. 


*THIS RECORD 1S NOT FOUND* UPON PrINTITs 


1 


LINFe 


IDEN. 


PROGO3 


PROGO3 


PROGO3 


PROGO3 


PROGN3 


PROGO3 


PROGO3 


PROGOS 


PAGE 
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16.4. OUTPUT LISTING 


N2N174A 
B2UI74A 
N2N174A 
201744 
N20174A 


A PRINT 
VT CONTRA 


> 
x 
iia 
tw 
a 
w 
- 


S A MANDAL 


E 
S$ 


1119 


APAN FIN? 
48345 11497 
AAA LIEN? 


ABB 





UPDATE LEVEL 
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Console 
80-Column Keyboard 
Epepic Card Code Code 
{EBCOIC) 
0 00 NUL 12-0-9-8-1 
1 01 12-9-4 
2 02 12-9-2 
3 03 12-9-3 
4 04 PF 12:94 
5 os HT 12-9-5 
6 06 Lc 12-96 
7 o7 DEL 12-9-7 
8 08 129-8 
9 09 12-9-8-1 
10 OA 12-9-8-2 
an oB 12-9-8-3 
12 oc 129-84 
13 00 12-9-8-5 
14 OE 12-9-8-6 
15 OF 12-9-8-7 
16 10 12-11-9-8-1 
7 W 11-9-4 
18 12 11-9-2 
19 13 119-3 
20 14 RES 11-9-4 
21 15 NL 11-9-5 CARR. RET(CR) 
22 16 BS 1-9-6 
23 17 4k 11-9-7 
24 18 11-9-8 
25 19 11-9-8-1 
26 1A 11-9-8-2 
27 18 11-9-8-3 
28 1c 11-9-8-4 
29 1D 11-9-8-5 
30 TE 11-9-8-6 
31 1F 11-9-8-7 
32 20 OS 11-0-9-8-1 
33 21 sos 09-1 
34 22 FS 0-9-2 
35 23 0-9-3 
36 24 BYP 0-9-4 
37 25 LF 0-9-5 LINE FEED(LF) 
38 26 £08 0-9-6 
39 27 PRE 0-9-7 
40 28 0-9-8 
41 29 0-9-8-1 
42 2a SM 0-9-8-2 
43 2B 0-9-8-3 
44 2c 0-9-8-4 
45 2D 0-9-8-5 
46 2€ 0-9-8-6 
47 2F 0-9-8-7 
48 30 12-11-0-9-8-1 
49 31 9-1 
50 32 9-2 
51 33 9-3 
52 34 PN 9-4 
53 36 RS 95 
54 36 uc 946 
55 37 EOT 9-7 S{EOM} 
56 38 9-8 
57 39 9-8-1 
58 3A 9-8-2 
59 3B 9-8-3 
60 3c 9-8-4 
61 30 9-8-5 
62 3e€ 9-8-6 
63 3F 9-8-7 
64 40 SP NO PUNCHES SPACE (SP) 
65 41 12-0.9-1 
66 42 12 
67 43 12. 
68 44 12-094 





UPDATE LEVEL } PAGE 







Appendix A. Character Set 


Compressed 


NO PUNCH 
3112 
ali 
thi2d 
slo 
2112.0 
7111.0 
6112,11,0 
918 
9,318,12 
9,418.11 
9,1 58,12,11 
9,518.0 
9,2|8,12,0 
9,7 |8,11,0 
9,6 |8,12,11,0 


il! 


4 
aaa! 


Y%20-H-NOTD 
Y920-A-NO7 


YN>O 
MOOS 








escpic @) 


|(vert. bar) 
(Comma) 
% 

—— (Underscore} 
> 


? 


+ 
@ 
“Prime or Apos) 


“{Quotes} 


80-Column 


Card Code 


12-0-9-5 
12-0-9-6 
12-0-9-7 
12-0-9-8 
12-8-1 
12-8-2 
12-8-3 
12-84 
12-8-5 
12-86 
12-8-7 

12 
12-11-9-1 
12-11-9-2 
12-11-9-3 
12-11-94 
12-41-9-5 
12-19-9-6 
12-14-9-7 
12-11-9-8 
11-8-4 
11-8-2 
11-8-3 
11-84 
11-8-5 
11-846 
11-8-7 

in] 

0-1 
11-0-9-2 
11-0-9-3 
11-0-9-4 
11-0-9-5 
11-0-9-46 
11-0-9-7 
11-0-9-8 
0-8-1 

42-11 
0-8-3 

0-8-4 

08-5 

0-8-6 

0-8-7 
12-11-90 
12-11-0-9-1 
12-41-0-9-2 
12-11-0-9-3 
12-11-0-9-4 
12-14-0-9-5 
12-11-0-9-6 
12-11-0-9-7 
12-11-0-9-8 
8-1 
8-2 








Console 
Keyboard 
Code 
(EBCDIC) 


@m-+ mA 





[(vert. bar) 

, (Comma) 

% 
—(Underscore) 

> 


? 


+ 
@ 
“(Prime or Apos) 


(Quotes) 
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Console Console 
Hexa- eBcDIc @ 80-Column Keyboard Hexa- EBCDIC 80-Column Keyboard 
decimat Card Code Code decimal Card Code Code 
{EBCDIC) (EBCOIC) 
130 82 b 12-0-2 PZ 12-0 
131 83 c 12.0-3 foal A 12-4 A 
132 84 d 120-4 C2 B 312.2 B 
133 85 e 12-0-5 c3 c 12-3 c 
134 86 t 12-0-6 C4 o 12-4 D 
135 87 9 12-0-7 cs E 12-5 E 
136 88 h 1208 ce F 126 F 
137 89 i 12.0.9 c? G 12-7 G 
138 8A 12-0-8-2 c8 H 128 H 
139 8B 12-0-8-3 ce I 12.9 ' 
140 8c 12-0-8.4 CA 12.0-9-8-2 
141 8D 12-0.8-5 ce 12.0.9-8-3 
142 8E 12-086 cc 12.0.9:8-4 
143 8F 12-0-8-7 cD 12-09-85 
144 90 12-11-8-1 ce 12.0.9-8-6 
145 91 ) 12-11-1 CF 12.0-9-8-7 
146 92 k 12-11-2 DO Mz 11-0 
147 93 ! 12-11-3 D1 J wa J 
148 94 m 12-11-4 D2 K 11-2 K 
149 95 n 12-115 03 L 11-3 L 
150 96 ° 12-116 04 M 11-4 M 
151 97 p 12-11-7 D5 N 11.6 N 
152 98 a 12-11-8 Dé fo) 116 ° 
153 99 r 12.119 D7 e 11-7 Pp 
154 9A 12-11-82 08 Q 14-8 Q 
155 9B 12-11.8-3 09 R 11.9 R 
156 9c 12-11-8-4 DA 42-11.9-8-2 
157 90 12-11-8-5 DB 12-14-9-8-3 
158 9€ 12-11-86 oc 12-41-9-8-4 
159 oF 12.11-8.7 OD 12-11.9-8-5 
160 AO 11-0-8-1 DE 12-13-9-8-6 
161 Al 14-0-1 OF 12-11-9-8-7 
162 A2 s 110-2 £0 0-8-2 
163 A3 t 11.0-3 61 11.0.9-1 
164 Aa u 11-04 E2 s 0-2 s 
165 AS t 11-0-5 —3 T 0-3 T 
166 AG w 11-06 &4 U 04 U 
167 AT x 110-7 ES v 0-5 v 
168 AB y 11-0-8 £6 w 06 Ww 
169 ag 2 11-09 —7 x 07 x 
170 AA 11:0-8-2 €8 Y 08 Y 
171 AB 11-0-8-3 &9 z 09 Zz 
172 AC 11.0-8-4 EA 11-0.9-8-2 
173 AD 11-0-8-5 eB 11-0-9-8-3 
174 AE 11-0-8-6 EC 11-0-9-8-4 
176 AF 11-0-8-7 11-0-9-8-5 
176 80 12-11-0-8.4 “11-0-9-8-6 
177 81 12-11-0-1 
178 B2 12-11-0-2 0 0 0 
179 83 12-11-0-3 1 1 1 
180 B4 12:11-0-4 2 2 2 
181 BS 42-11-0-5 3 3 3 
182 B6 12.11.06 4 4 4 
183 B7 12-11-0-7 5 5 5 
184 B8 12-11.0-8 6 6 6 
185 Bg 12-11-0-9 7 7 7 
186 BA 12-11-0-8.2 8 8 8 
187 8B 12-11-0-8-3 9 9 9 
188 BC 12-11-0-8-4 12.11-0:9-8-2 
189 BD 12-11-0-8-5 12-11-0-9-8-3 
190 BE 12-11-0-8-6 12-11-0-9-8-4 
191 BF 12-11-0-8-7 12-11-0-9-8-5 
12.11-0-9-8-6 
92-11-0-9-B-7 
NOTES: 


@ Punch patterns used to store the 
corresponding hexadecimal 
representation in the indicated bit 
positions of a byte. 


@ Lowercase letters are an industry 
standard and are not printable on the 
SPERRY UNIVAC Series 90 Printers 
without special print options. 





Some graphic, card code, and 
hexadecimal assignments may differ 
depending upon the device, 
application, or installation policy. 
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Appendix B. Reserved Words 


Reserved words are part of the COBOL language structure and cannot be used for data or procedure names. 


ACCEPT 
ACCESS 
ACTUAL 

ADD 
ADVANCING 
AFTER 

ALL 
ALPHABETIC 
ALTER 
ALTERNATE 
AND 

APPLY* 

ARE 

AREA 

AREAS 
ASCENDING 
ASCII* 

ASSIGN 

AT 

AUTHOR 
BEFORE 
BEGINNING 
BLANK 

BLOCK 
BLOCK-COUNT* 
BLOCK-LENGTH-CHECK* 
BUFFER-OFFSET* 
BY 

CALL* 
CARD-PUNCH* 


CARD-READER* 
CARD-READER-51* 
CARD-READER-66* 
CHARACTER 
CHARACTERS 
CHANGED* 


CLOSE 

COBOL 

COMMA 

COMP 

COMP-1* 

COMP-2* 

COMP-3* 

compP-4* 
COMPUTATIONAL 
COMPUTATIONAL-1* 
COMPUTATIONAL-2* 
COMPUTATIONAL-3* 
COMPUTATIONAL-4* 
COMPUTE 
CONFIGURATION 
CONTAINS 

COPY 

CORR 
CORRESPONDING 
CURRENCY 
CYLINDER-INDEX* 
CYLINDER-OVERFLOW* 
DATA 
DATE-COMPILED 
DATE-WRITTEN 
DECIMAL-POINT 
DECLARATIVES 
DEPENDING 
DESCENDING 
DIRECT* 

DISc* 

DISC-8411* 
DISC-8414* 
DISC-8415* 
DISC-8416* 
DISC-8418* 
DISC-8430* 
DISC-8433* 


*Extension to American National Standard COBOL (1968). 


DISPLAY 
DIVIDE 
DIVISION 
DOWN 

EBCDIC* 

ELSE 

END 

ENDING 
ENTER 

ENTRY* 
ENVIRONMENT 
EQUAL 
EQUALS* 
ERROR 

EVERY 
EXAMINE 
EXCEEDS* 
EXHIBIT* 

EXIT 
EXTENDED 
EXTENDED-INSERTION* 
FD 

FILE 
FILE-CONTROL 
FILE-LIMIT 
FILE-LIMITS 
FILE-PREPARATION* 
FILLER 

FIRST 

FOR 
FORM-OVERFLOW* 
FROM 
GENERATE 
GIVING 

GO 

GREATER 


HIGH-VALUE 
HIGH-VALUES 
1-0 
1-O-CONTROL 
IDENTIFICATION 
IF 

IN 

INDEX 
INDEXED 
INDICES* 
INITIATE 
INPUT 
INPUT-OUTPUT 
INSERT* 
INSTALLATION 
INTO 

INVALID 

IS 

JUST 
JUSTIFIED 

KEY 

LABEL 
LEADING 

LEFT 

LESS 

LINE 

LINES 
LINKAGE* 
LOCK 
LOW-VALUE 
LOW-VALUES 
MAP* 
MASTER-INDEX* 
MEMORY 
MODE 
MODULES 
MONITOR* 
MORE-LABELS* 
MOVE 
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MULTIPLE 
MULTIPLY 
NAMED* 
NEGATIVE 
NEXT 

NO 

NOT 

NOTE 
NUMERIC 
OBJECT-COMPUTER 
OCCURS 

OF 

OFF 
OMITTED 
ON 

OPEN 
OPTIONAL 
OR 
ORGANIZATION* 
OTHERWISE* 
OUK-90-250* 
OUK-90-300* 
OUK-90-400* 
OUK-90-600* 
OUK-90-700* 
OUTPUT 
PERCENT* 
PERFORM 
PIC 

PICTURE 
POSITION 
POSITIVE 
PRINTER* 
PROCEDURE 
PROCEED 
PROCESSING 
PROGRAM* 
PROGRAM-ID 
QUOTE 
QUOTES 
RANDOM 
READ 
READY* 
RECORD 
RECORDING* 
RECORDS 
REDEFINES 
REEL 
RELATIVE* 
RELEASE 
REMAINDER 
REMARKS 
RENAMES 


*Extensions to American National Standard COBOL (1968). 
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REPLACING 
RERUN 
RESERVE 
RESET 
RESTRICTED* 
RETURN 
REVERSED 
REWIND 
REWRITE* 
RIGHT 
ROUNDED 
RUN 

SAME 

SD 

SEARCH 
SECTION 
SECURITY 
SEEK 
SEGMENT-LIMIT 
SELECT 
SENTENCE 
SEPARATE* 
SEQUENTIAL 
SET 

SIGN* 

SIZE 

SORT 
SOURCE-COMPUTER 
SPACE 
SPACES 
SPECIAL-NAMES 
STANDARD 
STATUS 

STOP 
SUBTRACT 
SYMBOLIC* 
SYNC 
SYNCHRONIZED 
SYSCHAN-1* 
SYSCHAN-2* 
SYSCHAN-3* 
SYSCHAN-4* 


SYSCHAN-5* 


SYSCHAN-6* 
SYSCHAN-7* 
SYSCHAN-8* 
SYSCHAN-9* 
SYSCHAN-10* 
SYSCHAN-11* 
SYSCHAN-12* 
SYSCHAN-13* 








SYSCHAN-14* 
SYSCHAN-15* 
SYSCOM* 


SYSCONSOLE* 


SYSDATE* 
SYSERR* 
SYSERR-0* 
SYSERR-1* 
SYSERR-2* 
SYSERR-3* 
SYSERR-4* 
SYSERR-5* 
SYSERR-5* 
SYSERR-6* 
SYSERR-7* 
SYSERR-8* 
SYSERR-9* 
SYSERR-10* 
SYSERR-11* 
SYSERR-12* 
SYSERR-13* 
SYSERR-14* 
SYSERR-15* 
SYSERR-16* 
SYSERR-17* 
SYSERR-18* 
SYSERR-19* 
SYSERR-20* 
SYSERR-21* 
SYSERR-22* 
SYSERR-23* 
SYSERR-24* 
SYSERR-25* 
SYSERR-26* 
SYSERR-27* 
SYSERR-28* 
SYSERR-29* 
SYSERR-30* 
SYSERR-31* 
SYSIN* 
SYSIN-96* 
SYSIN-128* 
SYSLOG* 
SYSLST* 
SYSSWCH* 
SYSSWCH-0* 
SYSSWCH-1* 
SYSSWCH-2* 
SYSSWCH-3* 
SYSSWCH-4* 
SYSSWCH-5* 
SYSSWCH-6* 
SYSSWCH-7* 
SYSTIME* 
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TALLY 
TALLYING 
TAPE 

TAPE-6* 
TAPES* 
TERMINATE 
THAN 

THEN* 
THROUGH 
THRU 

TIME* 

TIMES 

TO 

TRACE* 
TRACKS* 
TRAILING* 
TRANSFORM* 
UNEQUAL* 
UNIT 
UNIVAC-9000* 
UNIVAC-9025* 
UNIVAC-9030* 
UNIVAC-9040* 
UNIVAC-9060* 
UNIVAC-9070* 
UNIVAC-920011* 
UNIVAC-9300* 
UNIVAC-930011* 
UNIVAC-9400* 
UNIVAC-9480* 
UNIVAC-9700* 
UNTIL 

UP 

UPON 

USAGE 








USE 


USING 
VALUE 
VALUES 
VARYING 
VERIFY* 
WHEN 
WITH 
WORDS 
WORKING-STORAGE 
WRITE 
ZERO 
ZEROES 
ZEROS 
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Appendix C. Intermediate Results 
in Arithmetic Operations 


C.1. GENERAL 

For certain arithmetic statements in the SPERRY UNIVAC Operating System/3 (OS/3) COBOL, the compiler 
generates code that uses internal work areas for storage of intermediate results. Intermediate results may be required 
in the following types of statements: 

a ADD, where more than one operand precedes TO or GIVING. 


a SUBTRACT, where more than one operand precedes FROM or GIVING. 


The compiler provides a description for an intermediate result which is appropriate for use in the operation or series 
of operations for which it is required. . 


C.2. ADD AND SUBTRACT STATEMENTS 


The description of the intermediate result area is determined by forming the composite of operands (6.6.1.1) and 
appending one additional digit in the most significant position to contain overflow when 10 or fewer operands 
immediately follow the verb, or two digits for more than 10 operands. 
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Appendix D. Compiler Diagnostics 


D.1. GENERAL 


The SPERRY UNIVAC Operating System/3 (OS/3) basic COBOL compiler generates system console and diagnostic 
messages during compilation. System console messages relate to the compilation environment and are displayed 
when the error condition is encountered. The job is terminated and the error condition must be corrected before the 
job can be rerun. The diagnostic messages flag errors encountered in the source program during compilation. A list of 
all diagnostic messages generated is output after all other printer options are satisfied. 


D.2. DIAGNOSTIC MESSAGES 


The diagnostic listing is produced as its last printed output. Each diagnostic message contains the compiler-generated 
line number on which the error occurred, the diagnostic severity code, the diagnostic number, and the diagnostic 
message text. 

The diagnostic severity code definitions are: 


P (precautionary) 


No source language error was detected, but an unusual or potentially undesirable condition was noted by 
the compiler. 


C (changed) 
A character, word, clause, entry, or statement in the source program is omitted or used incorrectly. To 
compensate for the error, the item has been changed by the compiler to avoid its deletion and reduce the 
probability of error propagation. Execution of the object time program may give unpredictable results. 
U (uncorrectable) 
A source language error was detected which caused the compiler to delete a character, word, clause, 


entry, or statement from the source program. The compilation continues, but other errors may result 
because of the deleted item. Execution of the object program, in general, gives unpredictable results. 
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S (compiler restriction exceeded) 





Fhe compilation continues but, to generate code for the excessive items, a recompilation is necessary 
after source program modification or with more storage assigned to the compiler. 


The following chart explains the error messages and related recovery procedures. The messages are listed in 
ascending order based on the message number, 














Message Severity 
Number Code 


Diagnostic Message 



































001 P ERROR IN SOURCE LINE SEQUENCE 
NUMBERING. 

002 c AREA-A NON-BLANK WITH HYPHEN 
IN COLUMN 7. 

003 ie ERROR IN COLUMN 7 OF SOURCE 
LINE. 

004 Cc SPACE FOLLOWING LEFT 
PARENTHESIS. 

005 Cc NON-NUMERIC LITERAL CONTINUA- 
TION DID NOT BEGIN WITH QUOTE 
OR APOSTROPHE. 

006 c IMPROPER TERMINATION OF NON- 
NUMERIC LITERAL literal. 








The characters in columns 
1 to 6 of the source line 
are alphanumerically less 
than columns 1 to 6 of the 
previous source line. 


A nonblank character was 
found in area A (columns 
8 to 11) when continuation 
was specified by a hyphen 
in column 7. 


An invalid character was 
found in column 7. 





Explanation 


The sequence number, 
columns 1 to 6 of the 
source line, is an 
optional entry used 
only by the programmer 
to establish a sequence 
among the various lines 
of coding. 


When continuation is 
specified by hyphen in 
column 7, the contin- 
ued portion must begin 
in area B (columns 12 
to 72). 

















The source line is processed 
as though the error had not 
occurred. 














The first nonblank character 
after column 7 is accepted 
as the beginning of con- 
tinuation. 

















The only acceptable 
characters for column 
7 are the space, hyphen 
(continuation), or 
asterisk (comment). 

















One or more spaces were 
detected following a left 
parenthesis. 


The continued portion of a 
nonnumeric literal did not 
begin with a quote or 
apostrophe. 


The second of the two quotes 
or apostrophes that enclose 

a nonnumeric literal is not 
followed by a space or 
punctuation and a space. 











in OS/3 COBOL, spaces 
must not separate left 
or right parentheses 
from that which they 
enclose. 


When continuation of a 
nonnumeric titeral is 
specified by a hyphen 
in column 7, the con- 
tinued portion must 
begin with a quote or 
apostrophe in area B. 









The terminating quote 
or apostrophe enclosing 
a nonnumeric literal 
must be followed by a 
space or punctuation 
and a space. 











A space is assumed to have 


been found in column 7. 










Processing continues as if the 
space had not occurred. 






















Processing continues as if a 
quote or apostrophe occurred 
prior to the first nonblank 

character. 















Processing continues as if a 
space had occurred. The first 
30 characters of the nonnumeric 
literat are noted in the 
diagnostic. 
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Message 
Number 


008 


010 


o11 


012 


013 





Severity 
Code 





Diagnostic Message 


EXCESSIVE CHARACTER STRING 
char-string. 


| Explanation 





| Reason Rule Recovery 

























A character string which 
is greater than its maximum 
legal size was detected. 


Maximum legal sizes are: 
132 characters for non- 
numeric literals, 20 
characters for numeric 
literals (including sign 
and decimal point), 30 
characters for nonliterals. 


Processing continues after 
the excessive characters 
are discarded. The first 
30 characters of the string 
are noted in the diagnostic. 




















INVALID CHARACTER DETECTED 
IN char-string. 












An invalid character is 
one which is in the COBOL. 
character set but which is 
made invalid by the context 
in which it appears, e.g., 
P’CTURE. 


An invalid character was 
found in the character 
string displayed in the 
diagnostic. 











The entire string is deleted. 
























tLLEGAL CHARACTER DETECTED 
iN char-string. 


NON-NUMERIC LITERAL OF 
SIZE 0 ENCOUNTERED 














An illegal character was 
found in the character 
string displayed in the 
diagnostic. 


An illegal character is 
one that is not in the 
COBOL character set, 
e.g., #. 


The entire string is deleted. 


















A nonnumeric literal of one 
space character is assumed. 


A nonnumeric literal 
must have at least one 
character between the 
enclosing quotes or 

apostrophes. 


Two quotes or apostrophes 
with no intervening 
characters were encountered. 














HYPHEN EXPECTED IN COLUMN 7. 















A nonnumeric literat is 
being continued and a 
hyphen is missing from 
column 7. 


A hyphen in column 7 and 
a quote or apostrophe in 
area B are needed to con- 
tinue a nonnumeric literal. 


Processing continues as if a 
hyphen were encountered. 










HYPHEN IN COLUMN 7 AND 


QUOTE OR APOSTROPHE EXPECTED. 


SPACE PRECEDING RIGHT 
PARENTHESIS. 






















The nonnumeric literal is 
terminated On the previous 
source line at column 72. 


Continuation of a non- 
numeric literal is specified 
by a hyphen in column 7 
and a quote or apostrophe 
in area B preceding the 
continued portion of the 
nonnumeric literal. 


There is no terminating 
quote or apostrophe on the 
previous source line and no 
hyphen in cotumn 7 or quote 
or apostrophe on the current 
source line to indicate 
continuation. 











In OS/3 COBOL, spaces 
must not separate left or 
right parentheses from 

that which they enclose. 


Processing continues as if 
the space had not occurred. 


One or more spaces have been 
detected preceding right 
parenthesis. 
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Explanation 


Diagnostic Message | a is 
Rule 


SYNTAX REQUIRES clause, The character-string listed See applicable language (f the error appears within 
char-string INVALID. as invalid in the message formats in this manual. a clause, such as ACCESS or 
text has produced a syntax OCCURS, the clause is deleted. 
error. The required item 
is a source string that {f the error appears within 
would have correctly an entry, such as the assign 
completed the clause, device type or an invalid name 
entry, or statement in following FD, the entire entry 
error. is discarded. 
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If the error appears within a 
statement, the statement is 
ignored. 





When a syntax error occurs, 
source strings are ignored 

until one of the following 

listed recovery types is 
detected, whereupon processing 
resumes. Recovery is possible 
on the string listed as invalid 


in the diagnostic. 


IDENTIFICATION, PROGRAM- 
1D, AUTHOR, INSTALLATION, 
DATE-WRITTEN, DATE- 
COMPILED, SECURITY, 
REMARKS, ENVIRONMENT 
CONFIGURATION, SOURCE- 
COMPUTER, OBJECT- 
COMPUTER, SPECIAL-NAMES, 
any SPECIAL-NAME definition, 
INPUT-OUTPUT, FILE- 
CONTROL, SELECT, FOR, 
FILE-LIMIT, ACCESS, ACTUAL, 
SYMBOLIC, RELATIVE, 
ORGANIZATION, RESERVE, 
1-O-CONTROL, RERUN, SAME, 
APPLY, DATA, FILE, FD, SD, 
BLOCK, RECORD, LABEL, 
RECORDING, DATA, VALUE, 
OCCURS, PICTURE, USAGE 
SYNCHRONIZED, JUSTIFIED, 
BLANK, COMPUTATIONAL, 
COMP-1, COMP-2, COMP-3, 
COMP-4, DISPLAY, INDEX, 
SIZE, MAP, level-number 
WORKING-STORAGE, LINKAGE, 
PROCEDURE, Procedure-name 
in Area A, any verb. 
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Diagnostic Message 


COMPILER ERROR 







FILE-NAME file-name NOT 
PREVIOUSLY SELECTED. 






EXTERNAL-NAME external-name 
NOT PREVIOUSLY ASSIGNED. 











Message Severity 
Number Code 
015 S 

016 U 

017 U 

018 U 


clause PREVIOUSLY SPECIFIED 
FOR filename. 





019 U 


name PREVIOUSLY DEFINED AS 
EXTERNAL-NAME OR FILE-NAME. 


This diagnostic is issued 
only as the result of a 
compiler/system error. 


The file-name being refer- 
enced has not been defined 
in a SELECT entry. 


The external-name being 
referenced was not assigned 
in a SELECT entry. 





A file-name referenced 
ina RERUN, MULTIPLE, 
VERIFY, BLOCK-COUNT 
or SAME AREA entry 
must appear ina 

SELECT entry. 





The external-name speci- 
fied in a RERUN entry 
must match the assigned 
ex ternai-name or, if 
external-name was not 
specified, the first eight 
characters of the 
SELECT file-name. 















The occurrence of this 
diagnostic should be 

reported using the SUR 
procedure. 







The referenced file-name is 
deteted from the entry. 



















The RERUN entry is deleted. 


















Anentry, such as APPLY 
BLOCK-COUNT, was multiply 
specified for the tisted 
file-name. 





An entry, such as APPLY 
BLOCK-COUNT, should be 
specified only once for 

a given file. 











The duplicate entry is deleted. 










The listed name appears 
in more than one SELECT 
entry. 









File-names and external- 
names specified in 

SELECT entries must be 
unique. 








The entire SELECT entry is 
deleted. 













020 U 





021 U 














MISSING DATA DIVISION HEADER. 


MISSING DATA AND PROCEDURE 
DIVISION HEADER. 


















The PROCEDURE DIVISION 
header has been en- 
countered without prior 
detection of the DATA 
DIVISION header. 


The end of the source 
program has been reached 
without a DATA DIVISION 
or PROCEDURE DIVISION 
header being encountered. 





All four division headers 
must appear in every source 
program and conform to 
the following order: 
IDENTIFICATION, ENVI- 
RONMENT, DATA, 
PROCEDURE. 


All four division headers 
must appear in every 

source program and 
conform to the following 
order: IDENTIFICATION, 
ENVIRONMENT, DATA, 
PROCEDURE. 


















Processing continues with the 
PROCEDURE DIVISION header. 
If data division entries exist, 

they are ignored. 















| If data division entries or 
procedure division statements 
exist, they are ignored. 
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Explanation 
























































must be preceded by the 
fisted header. 


must precede the first 
SELECT entry, the 
SPECIAL-NAMES header 
must precede the first 
special-name, and the 
1-O-CONTROL header must 
precede the first RERUN, 
SAME, APPLY, or 
MULTIPLE FILE entry. 


Message Severity Diagnostic Message 
Number Code 
Reason Rule Recovery 
022 c RESERVE INTEGER literal The number of alternate The RESERVE clause One alternate area is allocated 
PROCESSED AS 1. areas specified in the must specify one alternate for this file. 
RESERVE clause is not area, or none. 
acceptable. 
023 U FILE-NAME file-name The listed file-name appears A file-name cannot be The file-name in error 
CONFLICTS WITH PREVIOUS in multiple SAME AREA specified in more than is deleted from the SAME 
SAME AREA CLAUSE. or SAME RECORD AREA one SAME AREA or SAME | AREA clause. 
clauses. RECORD AREA clause. 
024 U clause CLAUSE IS OUTSIDE A clause, such as SYM- Clauses associated with The clause is deteted. 
SELECT ENTRY. BOLIC, is not associated a SELECT entry must 
with the previously com- appear within the entry, 
pleted SELECT entry. i.e., prior to the period 
that terminates the entry. 
025 U CURRENCY SIGN SYMBOL The currency sign specified The currency sign symbol The clause is deleted and the 
character INVALID. is not contained within the must be within the currency sign remains a $. 
valid currency sign character COBOL character set 
set. but cannot be one of 
the following: The digits 
Othrough 9ABCDEPR 
SV XZ space* ,+—.; 
(lor, 
026 P EXTERNAL-NAME external-name The external-name contains Only the first eight charac- The excess characters in the 
TRUNCATED. more than eight characters. ters of the external-name external-name are deleted. 
are meaningful. 
027 Cc HEADER REQUIRED AT THIS POINT. The current source line The FILE-CONTROL header| The header is assumed to have 


been encountered. 
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Severity 
Code 


U 
U 
Ss 


Diagnostic Message 


CLAUSE CONFLICTS WITH ACCESS 
METHOD SPECIFICATION. 


filename PREVIOUSLY SPECIFIED 
AS RERUN CONTROLLER. 


INVALID SPECIFICATION OF 
RERUN RECEIVER external-name. 


ADDITIONAL MEMORY REQUIRED FOR 
SELECT PROCESSING. 


DUPLICATE CLAUSE OR HEADER. 


HEADER OUT OF SEQUENCE. 


CLAUSE APPLIES GNLY TO 
RANDOM ACCESS FILES. 


OPTIONAL and RESERVE 
are appticable only to 

disc files with ACCESS 
SEQUENTIAL and 
ORGANIZATION 
SEQUENTIAL. 


The listed file-name appears 
in multipte RERUN entries 
as the RERUN controller. 


The listed RERUN receiver 
is not a tape or disc. 


The compiler does not have 
sufficient main storage 

to process all of the 
SELECT entries. 


A clause such as ACTUAL 
or a header such as 
AUTHOR has been multiply 
specified. 


The header on the indicated 


tine number is out of sequence. 


The clause or entry at the 
indicated line number applies 
only to random access files. 








See Section 11. 


A given file may control 
no more than one RERUN 
receiver. 


RERUN receivers must be 
assigned to a tape or disc. 


Each SELECT entry requires 
26 bytes of main storage plus 
1 byte for each character in 
the file-name. To increase 
the number of SELECTS 
that can be processed, recom 
pile using smatler file-names 
or with more main storage 
assigned to the compiler. 


All clauses must be unique 
within their associated 
entries. All headers 

must be unique. 


The order of headers must 
be as defined. 


VERIFY, RANDOM, RE- 
STRICTED, ORGANIZA- 
TION, ACTUAL, SYMBOL- 
iC, RELATIVE, or MUL- 
TIPLE apply only to 
random access fites. 


The clause in error is deleted. 
Line number reflects last state- 
ment in the SELECT clause. 


The RERUN entry is deleted. 


The RERUN entry is deleted. 


This SELECT entry and all others 
that follow are deleted. 


The duplicate clause or header 
is deleted. 


The header is deleted. 


The clause or entry is deleted. 
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Diagnostic Message 


Message Severity 
Number Code 


c 








CLAUSE NOT APPLICABLE FOR 
file-name. 


The clause or entry at the The following clauses 
indicated line number is or entries are not 
not applicable for the applic&ble for the 
listed file-name. indicated devices: 








BLOCK-COUNT, CARD.- 
READER, CARD- 
PUNCH, PRINTER, 
RANDOM ACCESS 
DEVICE. 

MULTIPLE — CARD- 
READER, CARD- 
PUNCH, PRINTER. 

OPTIONAL — CARD- 

PUNCH, PRINTER. 







INVALID ACCESS-TYPE. The combinations of 
ACCESS, ORGANIZATION, 
and KEY clauses are 


invalid. See Section 11. 


An invalid combination of 
ACCESS, ORGANIZATION, 
and KEY clauses has been 

specified. 




















COPY STATEMENT REQUIRES 
PERIOD. 


Something other than a 
period was found following 
the library name of a COPY 
statement. 


A period must follow the 
library name of a 
COPY statement. 








LABEL RECORDS CLAUSE OMITTED 
FROM file-name. 


A LABEL RECORDS clause 
has not been specified for 
the listed file-name. 






The LABEL RECORDS 
clause is required for afl 
files. 


MISSING PROCEDURE DIVISION 
HEADER. 


All four division headers 
must appear in every 
program and conform 
to the following order: 
IDENTIFICATION, ENVIRON- 
MENT, DATA, PROCEDURE. 


The end of the source pro- 
gram has been reached 
without detecting the 
PROCEDURE DIVISION 
header. 






a ee 


























The clause or entry is deleted. 
































The file is classified as ACCESS 
SEQUENTIAL, ORGANIZA- 
TION SEQUENTIAL. 














A period is assumed to have been 
present. 


















LABEL RECORDS OMITTED 
is assumed. 














If procedure division statements 
exist, they are deleted. 
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Message Severity Diagnostic Message tation 
Number Code 
Reason Recovery 


literal NOT A VALID LEVEL NUMBER. The listed level number is . Level number values 1. tf a level number other than 
erroneous because of its are restricted to 01 01 through 49, 66, 77, or 88 
value or use. through 49, 66*, 77, is encountered, the level 
or 88. number is changed to 49 if 
2. The level number of the WORKING-STORAGE or 
the first data descrip- LINKAGE SECTION header 
tion following an FD* has not been encountered; 
or SD must be 01. otherwise, the level number 
3. A level number 77 may is changed to 01. 
not be used within the 2. If the first data descriptor 
file section. in a record is not 01, a 01 
filler is created by the com- 
piler to precede the current 
data description. 
3. The level number is changed 
to 01. 
































































. A REDEFINES clause 
may not be used with 
a level number 66*, 
88, or a O1 in the 
file section. 

2. A PICTURE clause 
may not be used with 
a level number 66* or 
88. 

3. The MAP clause is not 
allowed with level 
number 66* or 88. 

4. Multipie values can only 
appear with a level 
number 88. 

5. The OCCURS clause is 
not permitted with a 
level number 01, 66*, 
or 88. 

6. A RENAMES* clause can 
only be used with a level 
66". 

7. The value clause cannot 
be used with a level 

number 66*. 


The listed clause is not 
allowed with the specified 
Jevel number, or a statement 
containing a value clause 

is not terminated with a 
period. 


clause CLAUSE INVALID WITH 
ASSOCIATED LEVEL NUMBER. 


In rules 1 through 3, and 5 
through 7, the clause is 

deleted. For rule 4, the first 
value is accepted; all others 
are deleted. 















































The REDEFINES clause 
must immediately foliow 
the name of the data 
description. 


The REDEFINES clause is 
accepted. 


The REDEFINES clause 
was not the first clause 
in the data description. 


REDEFINES MUST BE FIRST CLAUSE. 








*FD, RENAMES, and 66 available in extended compiler. 
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Severity 
Code 


044 Cc 











Diagnostic Message 


clause NOT SUPPORTED 


LEVEL NUMBER number MUST BEGIN 
IN AREA-A. 





COPY STATEMENT REQUIRES LIBRARY 
NAME, character string INVALID. 


OCCURS CLAUSE INTEGER INVALID. 


LIBRARY NAME character string 
EXCEEDS EIGHT CHARACTERS. 


An obsolete COBOL clause 
has been encountered. 


The level number 01 or 77 
did not begin in area A. 


The SIZE clause is not 
within the OS/3 COBOL 
language. 


All 01 or 77 level numbers 
must start in area A. 





A COPY verb was not 
followed by a library name. 


An OCCURS clause integer 
is O or greater than 65,535. 








The library name following 
the COPY verb was found 


to be longer than eight charac- 


ters. 





REMAINDER OF THE LINE 
FOLLOWING COPY STATEMENT 
MUST BE BLANK. 


DATA-NAME, FILE-NAME OR 
A. 


A nonblank character was 
found in the remainder of 
the line on which the 

COPY statement appears. 


The name or number assigned 
to the file or data descrip- 
tion begins in area A. 


A library name: 


@ jis composed of no more 
than eight characters of the 
set A through Z, 0 
through 9, and the 
hyphen (-). 
has at least one al- 
phabetic U character. 
does not have a hyphen 
as the first or last 
character. 
is not a COBOL reserved 
word. 


The minimum OCCURS 
value is 1. The maximum 
OCCURS value is 65,535. 
(In Format 2 of the 
OCCURS clause, integer-1 
may be 0.) 


The name of a library 
structure may be a max- 
imum of eight characters. 


Since the COPY statement 
directs the compiler to 
access new lines of 
COBOL code, nothing 
may follow the COPY 
statement on the same 
line. 


File-names, data-names, 
level number, and fitler 
must not begin in area A. 








ee eee ee eee 


The SIZE clause is deleted. 


The jevel number is accepted. 


The first eight characters of the 


string provided are used as a 
library name. 


'f O is used in Format 1 or as 
integer-2 in Format 2, the 
OCCURS clause is ignored. 

If an integer exceeds 65,535 
the integer is assumed to be 1. 


The first eight characters of the 


name provided are used. 


The remainder of the line is 


deleted. 


The name or level number is 
accepted. 
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Diagnostic Message 


APPLY CLAUSE OR SEGMENT-LIMIT 
INTEGER INVALID. 


BLOCKING SPECIFIED WITH 
RECORDING MODE U. 


CLAUSE NOT ASSOCIATED WITH 
FD OR DATA-NAME. 


NO DATA ENTRY FOR PREVIOUS FD 
OR SD*. 


FD OR SD* NOT IN FILE SECTION. 


LEVEL NUMBER number ENCOUNTERED 
PRIOR TO SECTION HEADER. 


*SD available in extended compiler. 





Cylinder overflow of disc 
was specified as being 
greater than 80 percent, 
the buffer offset 

value is not from 0 to 99, 
or the SEGMENT-LIMIT 
value is not from 1 to 49. 


A BLOCK CONTAINS 
RECORDS clause has been 
specified with a recording 
mode of U. Buffer offset 
value exceeds 99. 


A clause, such as DATA 
RECORDS or PICTURE, is 
not associated with the pre- 
viously completed file or 
data descriptor. 


The previous FD or SD does 
not have at least one record 
description associated with it. 


An FD or SD was detected 
outside the file section. 


A data descriptor was en- 
countered prior to detection 
of a DATA DIVISION section 
header. 





Cylinder overflow percent 
may not be greater than 
80 percent. 


Recording mode U states 
that records of the file 
are not blocked and may 
vary in length. 


Clauses associated with 
file or data descriptions 
must appear within the 
entry; i.e., prior to the 
period that terminates 
the entry. 


A record description, with 
level number 01, must 
follow every FD or SD 
description. 


Every file or sort descrip- 
tion must be within the file 
section. 


If a data descriptor is the 
first entry in the data 
division, it must be 
preceded by a WORKING- 
STORAGE or LINKAGE 
SECTION header. 


The overflow percent is set 

to 80 or 90 percent according 
to the type of buffer offset 
disc, the buffer offset is set 

at 99, or the SEGMENT-LIMIT 
is set at 49. 


The BLOCK CONTAINS clause 
is deleted. The recording mode 
U is accepted or the buffer 
offset value is set to 99. 


The clause is deleted. 


The compiler creates a record 
description whose name is 
FILLER. The size of this 
record is set to the number of 
bytes specified in the RECORD 
CONTAINS CHARACTERS 
clause, if the clause was de- 
tected; otherwise, the size is set 
to 30 bytes. 


The file or sort description is 
deleted. Any record descrip- 
tions following the FD or SD are 
accepted. They are allocated to 
either the working-storage or 
linkage section, depending on 
which header was last encoun- 
tered. 

The compiler assumes the 
WORKING-STORAGE SECTION 
header has been encountered 
and allocates the data item to 
that section. 
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= Diagnostic Message 
pam 
Reason 


LANGUAGE ELEMENT NOT 
IMPLEMENTED. 


DATA ENTRY REQUIRES RENAMES 
OR VALUE CLAUSE. 


LEVEL 88 condition-name NOT 
PRECEDED BY DATA ENTRY. 


LEVEL 66 data-name MUST APPEAR 
ONLY AT END OF A HIERARCHY. 


*RENAMES available in extended compiler. 


A COBOL language feature 
not supported by the compiler 
has been encountered. 


A data descriptor with level 
number 66 has no RENAMES 
clause or a data descriptor 
with a level number of 88 

has no VALUE clause. 


The level 88 entry is the 
first entry in the data 
division. 


The level number 66 entry 
was not followed by one of 
the following: a level number 
01 entry, an FD or SD entry, 
a tevel number 77 entry, a 
level number 66 entry, or a 
PROCEDURE DIVISION 
header. 


Explanation 


ae eee 


The following language 
elements are not available: 


I-O verbs in USE ERROR 
or LABEL procedure and 
ENTRY within a USE 
procedure. 


A data descriptor whose 
level number is 66 must 
have a RENAMES clause, 
and a data descriptor whose 
level number is 88 must 
have a VALUE clause. 


See rules for condition-name. 


See rules for RENAMES. 





The clause, entry, or statement 
is deleted. 


The data description is deleted. 


The compiler creates a level 01 
named FILLER, length 1, signed 
for the conditional variable. 


A level number 01 named 
FILLER is created to follow the 
level number 66 entry. 
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OCCURS DEPENDING ASSOCIATED 
WITH data-name. 


LEVEL NUMBER literal IS NOT 
SUBORDINATE TO AN 01. 


CONSISTENCY ERROR: clause-1 
INVALID WHEN USED WITH clause-2. 


GO TO DEPENDING OPTION CONTAINS 
ONLY ONE PROCEDURE NAME. 


PICTURE INVALID for group item 
data-name. 


{MS ENVIRONMENT PROHIBITS USE 


OF LANGUAGE ELEMENT element. 


PROCEDURE DIVISION USING-REQUIRED 
IN IMS ENVIRONMENT. 


The data-name with the 
DEPENDING option of the 
OCCURS clause is not the 
last group entry ina 01 
hierarchy or the data-name 
is subordinate to another 
OCCURS clause. 


A data entry with a level 
number between 02 and 49 
follows a level number 77 

or DATA DIVISION header. 


Conflict between description 
clauses of the data entry e.g., 
USAGE COMP-3 and 
ALPHANUMERIC PICTURE. 


At least two procedure names 
are required ina GO TO 
statement with the DEPENDING 
option. 


The data entry was determined 
to be a group item from level 
number structure and a 
PICTURE clause conflicts with 
a group entry. 


The specified element is not 
allowed under IMS processing 
mode. 


Procedure division USING 
must be present in the IMS 
environment. 


See rules for OCCURS 
clause with the DEPENDING 
option. 


See rules for level number. 


See Section 5 for rules 
on clauses in conflict. 


See Format 2 of GO TO 
statement. 


See rules for PICTURE. 


IMS mode requirement. 


The procedure division USING 
is the only allowable entry 
point in a COBOL program 

in the IMS environment. 


The DEPENDING option of the 
OCCURS clause is ignored (max- 
imum number of occurrences is 
assumed). 


A levet number 01 named FILLER 
is created to precede the data 
entry. 


Clause-1 is deleted. 


Control is transferred to 
procedure name if value of 
identifier is 1. Otherwise, 
control is passed to the next 
sentence, 


The compiler deletes the 


PICTURE clause on the 
group item. 


The specified element is deleted. 


No action is taken by the compiler. 
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SAME SORT* OR SAME RECORD AREA 


CONFLICTS WITH SAME AREA CLAUSE. 


Some, but not all, filenames 

in a SAME AREA clause appear 
in a SAME RECORD or SAME 
SORT AREA clause. 





ONE LEVEL NUMBER ALLOWED PER 
LINE. 





USAGE of data-name CONFLICTS WITH 
USAGE OF GROUP. 


THE OCCURS CLAUSE ON data-name 
INVALID, 4 DIMENSIONAL TABLE 
DESCRIBED. 





More than one level number 
appears on the indicated 
line number. 


A data entry usage conflicts 
with the usage of one or 
more of the group entries 
which this data entry is 
subordinate to or usage 
conflicts with a value on 

a group fevel. 


A data entry with an OCCURS 
clause which would cause 
more than three levels of 
subscripting was encountered. 





FILE file-name HAS NO DATA RECORD. 


*SORT and 66 level available in extended compiler. 


A level 01 data record was 
not encountered for this file. 


i 








Explanation 


If one or more filenames of 

a SAME AREA clause appears 
ina SAME RECORD or 
SAME SORT AREA clause; 
all the filenames in that 
SAME AREA clause must 
appear in the SAME SORT 

or SAME RECORD AREA 
clause. 


No action is taken by the compiler, 





See formats of the data 
division. 


See rules for USAGE and 
VALUE IS. 


See rules for OCCURS. 


The level number is processed 
as though it were on a unique 
line number. 


Compiler assumes group entry’s 
usage as proper usage. 


The compiler deletes the OCCURS 
clause on the data entry. 





Format violated; see file 
section. There must be a 
data record description for 
each file. 


No action is taken by the compiler 
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Message peli 
Number 





Diagnostic Message 


BLOCK-LENGTH-CHECK CONFLICTS 
WITH RECORDING MODE FOR character- 
String. 


ADDITIONAL MEMORY REQUIRED 
FOR LABEL RECORDS PROCESSING. 


BLOCK CONTAINS CHARACTERS NOT A 
MULTIPLE OF RECORD SIZE FOR FILE 
filename. 


FILE-NAME file-name DOES NOT APPEAR 
IN A SELECT. 


INVALID RECORDING MODE FOR 
FILE file-name. 


BLOCK-LENGTH-CHECK 
is not allowed with all 
recording modes. 


BLOCK-LENGTH-CHECK 
is appropriate with recording 
mode V or D only. 


There is not enough main 
storage available to hold 

alt the label name definitions 
for this file. 


A file with organization relative 
with an inconsistent blocking 
factor was encountered (block- 
ing from BLOCK CONTAINS 
clause). 


A fite which does not have a 
SELECT entry (matched by 
file-name) was encountered. 


Device restriction (card 
reader) access method 
restriction (DISC, DISC-8414) 


1. A file assigned to card 
reader and recording mode 
was V or U. 

. Fite assigned to DISC 
with ORGANIZATION 
RELATIVE, and 
RECORDING MODE was 
Voru. 


See rules for FILE CONTROL. 


ee ee eee 


The BLOCK-LENGTH-CHECK 
is disregarded. 


Compiler assumes that label name 
definitions that will not fit 

into main storage do not exist. 
Main storage is required to hold 
the SELECTS and label name 
definitions. To allow processing 
of more jabel names, allocate 
more main storage, shorten the 
size of the SELECTS, or define 
fewer label names. 


The compiler deletes the BLOCK 
CONTAINS clause. 


Compiler assumes a SELECT entry 
defined with file-name (of file) 
assigned to tape-6. 


Compiler assumes recording mode 
F for this file. 
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Message Severity 
Dia stic M 
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80 CHARACTER BLOCK LIMIT EXCEEDED 


ee | 





BY CARD FILE file-name. 


BLOCK CONTAINS EXCEEDS 1 RECORD 
ON CARD-READER FILE file-name. 





FILE file-name MUST HAVE LABEL 
RECORDS OMITTED. 


A BLOCK CONTAINS clause 
exceeds the maximum for 
a card device. 


A file assigned to a card device 
was encountered with a 
BLOCK CONTAINS clause 
specifying two or more records. 


Explanation 


See rules for BLOCK 
CONTAINS. 


Device restriction. 


Recovery 


The compiler assumes the maxi- 
mum size (80) for BLOCK 
CONTAINS. 


Compiler assumes BLOCK 
CONTAINS one record. 





A file assigned to a unit 
record device with other 
than LABEL RECORDS 
OMITTED was encountered. 


+ 


Data management restric- 
tion. 


Compiler assumes labels to be 
omitted. 





BLOCK SIZE SPECIFIED FOR FILE 
filename EXCEEDS MAXIMUM. 


BLOCK CONTAINS clause 
contains value which exceeds 
maximum length for the 
device the file is assigned to. 


See BLOCK CONTAINS. 





BLOCK SIZE SPECIFIED FOR FILE 
filename LESS THAN MINIMUM. 





DESCRIPTION FOR LABEL RECORD 
label name NOT ENCOUNTERED. 


FILE file-name MUST HAVE LABEL 
RECORDS STANDARD OR DATA NAME. 


FILE filename MUST HAVE LABEL 
RECORDS STANDARD. 


A BLOCK CONTAINS clause 
value was encountered which 
is less than the minimum 
allowed for the device. 





See BLOCK CONTAINS. 





The compiler assumes that the 
maximum fength was specified. 


The compiler assumes the min- 
imum length for the 
BLOCK CONTAINS clause. 


$$$ 





A label name (from LABEL 
RECORDS ARE clause) with 
no 01 fabel description was 
encountered. 


See rules for label records. 





Filename is assigned to 
direct access device but 
the LABEL RECORDS 
clause specifies OMITTED. 


Filename is assigned to a 
direct access device with 
ORGANIZATION INDEXED, 
and LABEL RECORDS ARE 
OMITTED or data-name is 
specified. 


File assigned to disc must 
have a LABEL RECORDS 
specification. 


File with ORGANIZATION 
INDEXED must have 
LABEL RECORDS 
STANDARD. 


The compiler assumes that the 
label name does not exist. 





Compiler assumes LABEL 
RECORDS ARE STANDARD 
for the file. 


Compiler assumes tabel records 
to be standard for the file, 
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Explanation 
it 
: pane soa ¥ Diagnostic Message 
lu 
iat pte peas 


COPY SYNTAX REQUIRES character- See 6.6.7.1 for COPY The item in error and all items 
string, character-string INVALID. verb rules. which follow it in the COPY 
clause are deleted. 















The character-string listed 
as invalid has produced a 
syntax error. The required 
type of character-string is 
indicated. 

























































092 REPLACING character-string The main storage area used Compiler restriction. The compiler ignores the balance 
OVERFLOW CAUSED BY character-string to save replacing items has of the clause which causes over- 
been exhausted or the number flow. Recompile with additional 
of qualifiers associated main storage allocated to the 
with an identifier has compiler or reduce the number 
exceeded internal storage. of items, amount of qualification, 
or size of names in the REPLAC- 
ING clause. 
093 Cc Sign condition test requires figurative Literal O invalid unless When testing the condi- Literal constant O is treated 


















as figurative constant ZERO 
with code being generated 

as if statement was written: 
IF DATA-NAME ZERO. 


tion of a data item for a 

O condition. Syntax 
requires the use of 
figurative constant ZERO 
when no conditional opera- 
tor is present in the test. 


preceded by a relational 
operator. 


constant ZERO; literal 0 is invalid. 






















In order to delete the data 
descriptor, the compiler sets its 
PICTURE to SQ. 


See Section 5 for the 
allowable PICTURE symbols 
and the rules for their 
usage. 





CHARACTER NUMBER literal IS INVALID 
IN type PICTURE picture-string. 


An invalid PICTURE character, 
a PICTURE character incon- 
sistent with the PICTURE 
type, or a violation of the 
PICTURE precedence rules 
was detected. 
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tn order not to delete the data 
descriptor, the compiler sets its 
PICTURE to S9. 


See Section 5 for the 
allowable PICTURE 
symbols and the rules for 
for their use. 





















As stated, the picture is 
incomplete and cannot be 
processed, e.g., SPPPP. 


THE type PICTURE picture-string IS 
INCOMPLETE. 


: 


























CHARACTER NUMBER literal IS 
INVALID IN PICTURE picture-string. 


An invalid PICTURE 
character, a PICTURE 
character inconsistent with 
the PICTURE type, or a 
violation of the PICTURE 
precedence rules was 
detected. 


See Section 5 for the 
allowable PICTURE 
symbols and the rules for 
their usage. 


The PICTURE characters prior to 
the character in error are accepted. 
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Message Severity 
Number Code 


Diagnostic Message 


SIZE LIMIT OF jiteral BYTES EXCEEDED 
BY PICTURE picture-string. 


THE NUMBER OF DIGIT POSITIONS 
IN PICTURE picture-string 
EXCEEDS 18. 


A VALUE CONTAINED WITHIN 
PARENTHESES IS =0 OR >4092 IN 
PICTURE picture-string. 


The PICTURE specifies more 
storage than the maximum 
allowed for the PICTURE type. 


The number of digit positions 
in the PICTURE exceeds 18. 


A value contained within 
parentheses is either 0 or 
greater than 4092. 





A NUMBER DOES NOT FOLLOW A LEFT 
PARENTHESIS IN PICTURE picture-string. 


RIGHT PARENTHESIS MISSING FROM 
PICTURE picture-string. 


BOTH LEADING AND TRAILING SIGN 
INSERTION SPECIFIED | PICTURE 
picture-string. 


LITERAL titeral-string TRUNCATED 
DURING MOVE. 


INITIAL VALUE TRUNCATED. 


The maximum size in bytes 
of numeric PICTURE is 18, 
alphabetic or alphanumeric 
is 4092, numeric edited or 

alphanumeric edited is 132. 


The maximum number of 
digits allowed in a numeric 
or numeric edited 
PICTURE is 18. 


The number of times a 
PICTURE character is 
repeated as specified by the 
value in parentheses 
following it, must be 
greater than O and less 

than 4093. 


ee ee ee 


In order not to delete the data 
descriptor, the compiler sets its 
PICTURE to S9. 


In order not to delete the data 
descriptor, the compiler sets 
the PICTURE to S9. 


The value within the parentheses 
is set to 1 and processing of the 
PICTURE continues. 





A left parenthesis within the 
PICTURE is not followed by a 
numeric integer. 


A right parenthesis does not 
follow a numeric integer 
preceded by a left parenthesis. 


Two insertion sign characters 
were detected in the numeric- 
edited PICTURE. 


Within parentheses, a numeric 
integer is used to specify 

the number of times the 
preceding PICTURE character 
is repeated. 





Each left parenthesis in a 
PICTURE must be followed 
by a numeric integer and a 
right parenthesis. 


Specification of both leading 
and trailing sign insertion 
is not permitted. 


In order not to delete the data 
descriptor, the compiler sets the 
PICTURE to S9, 


In order not to delete the data 
descriptor, the compiler sets 
the PICTURE to S9. 


In order not to delete the data 
descriptor, the compiler sets the 
PICTURE to S9. 





The literal being moved contains 
a greater number of character 
positions than the receiver, or, 
when decimal-point aligned 
contains a greater number of 
digit positions than the receiver. 


The value specified for the 
data item contains a greater 
number of characters than the 
data item, or is a numeric 
value that, when the decimal 
point is aligned, is larger 

than the maximum value the 
data item can contain. 


Truncation occurs when any 
portion of the item being 
moved cannot be contained 
in the receiving field. 


The initial value cannot 
contain more characters 
than can fit into the data 
item. 


The literal is moved and 
truncated. 


The excess characters are trun- 
cated. 
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Diagnostic Message 


INVALID POSITIONING OF KEY data-name 
IN HIERARCHY. 


ADDITIONAL MEMORY REQUIRED TO 
PROCESS HIERARCHY CONTAINING 
data-name. 


data-name EXCEEDS REDEFINES 
NESTING LIMIT. 


data-name HAS IMPROPER REDEFINES 
OBJECT data-name. 


ADDITIONAL MEMORY REQUIRED TO 
PROCESS RENAMES QUALIFIER. 


DESCRIPTION OF data-name NOT 
ENCOUNTERED. 


RENAMES OCCURS CONFLICT BETWEEN 
data-name-1 AND data-name-2. 


REDEFINING AREA data-name UNEQUAL 
TO SIZE OF REDEFINED AREA. 


SIZE OF ELEMENTARY ITEM data-name 
EXCEEDS MAXIMUM OF 4092. 


There must not be any item 
with an OCCURS ctause be- 
tween the table item and its 
keys. 


Not enough main storage is 
available to contain alt 
entries subordinate to the 
01 data entry, and too many 
entries for the 01 hierarchy 
for the amount of main 
storage allocated. 


There are too many levels of 
redefinition. This data entry 
exceeds the limit of re- 
definition. 


The redefined area is a 
redefining area; i.e., the 
object of the REDEFINES 
clause has or is subordinate 
to a REDEFINES clause. 


insufficient main storage is 
available to contain the 
RENAMES qualifier because 
of a large hierarchy and/or 

a lot of RENAMES 
qualifiers. 


The definition of the entry is 
not in the current hierarchy. 


The object of the RENAMES 
clause on data-name-1 has 

or is subordinate to an 
OCCURS clause. 


The calculated length of the 
redefined area is not the same 
as the length of the redefining 
area. 


An elementary item with a 
length larger than the max- 
imum was detected. 








Explanation 


See rules for KEY under 
OCCURS clause. 


See rules for REDEFINES. 


See rules for REDEFINES. 


The named KEY is processed as a 
regular data item; the KEY infor- 
mation is ignored. 


The compiler does not process the 
data entries not contained in 

main storage. To compensate, 
shorten the hierarchy, shorten 
names in data entries, or assign 
more main storage to compiler. 


The compiler assumes this entry 
does not contain a REDEFINES 
clause. 


The compiler assumes the redefini- 
tion of the last-defined area 

with the same level as the 

subject of the REDEFINES clause, 


The compiler assumes the qualifier 
does not exist. 











See rules for qualification. 


See rules for level-number. 


See rules for REDEFINES. 


See data definition. 


The compiler assumes the qualifier 
name in error does not exist. 


The compiler assumes the last 
elementary item in the hierarchy 
is the object of the RENAMES 
clause. 


The compiter assumes the largest 
length was calculated for both 
areas. 


The compiler assumes the length 
to be 4092 for the elementary 
item. 
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Severity 
Code 





Diagnostic Message 


SIZE OF WORKING-STORAGE GROUP 
ITEM data-name EXCEEDS 
MAXIMUM OF 65,535. 


SIZE OF NON-WORKING-STORAGE 
GROUP ITEM data-name EXCEEDS 
MAXIMUM OF 4092. 


INVALID LEVEL NUMBER STRUCTURE 
ENCOUNTERED AT data-name. 


THE FIRST OBJECT OF THE LEVEL 
66 ENTRY data-name ENDS AFTER 
THE SECOND OBJECT. 





A group entry in working- 
storage is a length calcu- 
lated to exceed the maximum. 


The length of a file or 
Jinkage section group item 
was calculated to be greater 
than the maximum. 


A level number equal to the 
level of the data entry should 
have appeared in the hierarchy 
directly subordinate to the 01. 


The first object of a RE- 
NAMES clause does not 
precede the area of the 
second object of the 
RENAMES clause. 





THE SECOND OBJECT OF THE 
LEVEL 66 ENTRY data-name STARTS 
BEFORE THE FIRST OBJECT. 


USAGE INDEX INVALID FOR 
CON DITIONAL VARIABLE data-name. 


RECORD data-name 
SIZE UNEQUAL TO PREVIOUS RECORDS 
IN A. FIXED RECORDING MODE FILE. 


LABEL RECORD data-name SIZE 
NOT EQUAL 80 CHARACTERS. 


*RENAMES available i extended compiler. 


The second object of a 
RENAMES claues does not 
precede the first object 

of the RENAMES clause. 


A condition name entry is 
defined for a data entry 
with a USAGE IS INDEX 
clause. 


A file described as F RE- 
CORDING MODE does not 
have data records with the 
same length. 


A label record description 
with a length other than 80 
was encountered. 





Explanation 


See data definition. 


See data definition. 


See rules for RENAMES. 


See rules for RENAMES. 


The compiler assumes the length 
of the group item to be 65,535. 
The entire area specified is, 
however, allocated. 


The compiler assumes the maxi- 
mum of 4092 was the calculated 
length of the group item. 


The compiler assumes a level 
number on a data entry directly 
subordinate to the 01, e.g., 

O1A 

LEVEL 02 MISSING 

058 

02C 

INVALID LEVEL STRUCTURE 


The compiler assumes the second 
Object does not exist. 


The compiler assumes the objects 
are reversed. (The first is the 
second and the second is the 
first.) 





See rules for condition 
name. 


See rules for RECORDING 
MODE. 


OS/3 label specification 
has a tength of 80 for labels. 


The compiler assumes the alpha- 
numeric usage for the conditional 
variable. 


The compiler assumes the largest 
data record length for calculation 
of record length for the file. 


The compiler assumes the length 
of label records to be 80. 
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125 


126 


127 





128 


129 





130 

















Diagnostic Message 


data-name NOT ALIGNED. 


BLOCK SIZE FOR file-name SMALLER 
THAN LARGEST RECORD. 









The data-name is the subject of 


a REDEFINES clause and 
requires alignment due to a 
SYNC clause. However, the 
Object of the REDEFINES 
is not aligned. 


The BLOCK CONTAINS 
CHARACTERS clause speci- 
fies a block fength smaller 
than length of largest data 
record. 


See rules for SYNCHRONIZED, 













The SYNCHRONIZED clause is 
ignored. 


















| 


The compiter assumes the block 
length to be the length of the 


largest record. 








SIZE OF data-name GREATER THAN 
RECORD CONTAINS FOR FILE 
file-name. 














The RECORD CONTAINS 
clause specifies a record 

length smalter than largest 
record. 









fite-name clause LENGTH condition 
ALLOWED FOR DEVICE. 





The BLOCK CONTAINS 
clause or the RECORD 
CONTAINS clause exceeds 
maximum or is less than 
minimum for the device to 
which the file is assigned. 





RECORD CONTAINS CLAUSE FOR FILE 
filename NOT EQUAL TO SIZE OF 
LARGEST RECORD. 


BLOCK LENGTH OF FILE file-name 
PROHIBITS RUN TIME SPECIFICATION 


OF BLOCK NUMBERING. 





REDEFINES NOT PERMITTED FOR 
RECORDS IN FILE SECTION. 





See BLOCK CONTAINS and 
RECORD CONTAINS. 


The compiler assumes that the 
largest hierarchy subordinate to 





the FD specifies the length of the 
largest data record for the file. 





The compiler assumes the limiting 
length for the clause in error. 








The RECORD CONTAINS 
clause does not specify the 
length of the targest data 
record. 


The length of the block for 
the file is too large to allow 
block numbering. 





A file section tevel 01 with 
a REDEFINES clause was 
encountered. 





SUBJECT OF REDEFINES, data-name, 
NOT IN SAME SECTION AS OBJECT OF 
REDEFINES. 








The compiler assumes that the 


length of the largest data record 
is specified in the RECORD 
CONTAINS clause. 





See rules for REDEFINES. 





The subject of a REDEFINES 


clause is not in same section 
as entry with REDEFINES. 





See rules for REDEFINES. 


No action, Precautionary warning, 


The compiler assumes the RE- 
DEFINES clause does not exist. 





The compiler assumes the RE- 
DEFINES clause does not exist. 
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be Diagnostic Message 
oe 


OBJECT OF REDEFINES, data-name, 
WITHIN RANGE OF OCCURS. 


The object of aREDEFINES 
clause has or is subordinate 
to an OCCURS clause. 


ee ee 


See rules for REDEFINES. 


The compiler assumes the 
REDEFINES clause does not 
exist. 



































132 U REDEFINES OBJECT, data-name, AND The object and subject of the See rules for REDEFINES. The compiler assumes the 
SUBJECT, data-name, UNEQUAL REDEFINES clause do not have REDEFINES clause does not exist 
LEVEL NUMBER. the same level numbers. 
133 Ss INDEX NAME data-name EXCEEDS The current compiler fimit The compiler starts index-name 
COMPILER LIMITS. of index-names is 255. This main storage assignment over 
entry is the 256th specified and reassigns the main storage 
index-name. to the index-names being 
processed. 
134 Cc ELEMENTARY ITEM data-name HAS NO An elementary item, deter- The compiler assumes a length of 
LENGTH SPECIFIED. mined from level number 1, signed, was specified. 
structure, with no length 
specified or assumed was 
encountered, 
| Eee 
135* Cc OBJECT OF RENAMES data-name The object of the RENAMES See rules for RENAMES. The compiler assumes the last 
NOT FOUND WITHIN HIERARCHY. clause was not found in the elementary item of the hierarchy 
immediate hierarchy. as the specified object of the 
RENAMES clause. 
136* Cc OBJECT OF RENAMES data-name The object of the RENAMES See rutes for RENAMES. The compiter assumes the tast 
HAS ILLEGAL LEVEL NUMBER. clause has an illegat level elementary item as specified 
number. object of the RENAMES clause. 
137 U REDEFINES CLAUSE IN data-name The object of the REDEFINES See rules for REDEFINES. The compiler assumes the REDE- 
ENTRY HAS INVALID OBJECT. clause is not a legal evel for FINES clause does not exit. 
redefinition. 
138 Ss ADDITIONAL MEMORY REQUIRED FOR The compiler needs more Each procedure-name This procedure-name definition 





PROCEDURE NAME PROCESSING. 





*RENAMES available in extended compiler. 


main storage in order to 
process the rest of the section 
and paragraph names. 


definition requires 16 
bytes of storage plus one 
byte for each character in 
the name. To increase the 


number of procedure-names 


that can be processed, 
recompile using smaller 
names or with more main 
storage assigned to the 
compiler. 








and all others that follow are 
deleted. 
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= = — 
Number 
Reason 


PRIORITY NUMBER INCORRECT OR 
OUT OF SEQUENCE. 


NEITHER EXIT PROGRAM NOR 
RETURN STATEMENT ASSOCIATED 
WITH ENTRY OR USING STATEMENT. 








fall in range of 0 to 990 
priority number > 50 is 






















An entry point has been 


but the program contain 


Priority number value does not 


not in ascending sequence. 


specified for this program 


mechanism to return to caller. 


Explanation 


pre seated 


The priority number must be 
an integer ranging in value 
from 0 through 99. Segments 
with priority number 50—99 
are independent segments 
and must appear in the source 
program in ascending numeric 
order. 



























If segmentation has been specified 
(a previous segment with priority 
number > 50) the last valid 
priority number is assigned to 
this section. If segmentation 
has not been encountered, a 
priority number of 0 is assumed. 


r 




































All COBOL subprograms 
must contain either an 
EXIT PROGRAM ora 
RETURN statement. 


No corrective action is possible 
for this error. If the program is 
executed as a subprogram it will 
not return to the calling program. 


sno 



















NEITHER ENTRY NOR USING STATEMENT 
ASSOCIATED WITH EXIT PROGRAM OR 
RETURN STATEMENT. 


Program contains mecha 


may enter this program. 






NO ENTRY OR RETURN STATEMENT 
ASSOCIATED WITH LINKAGE SECTION. 


No entry point has been 


to return to a calling program 
but no mechanism has been 
coded where the calling program 





specified for this subprogram. section implies that this is 
















A COBOL program that is to 
be used as a subprogram must 
have an entry point. 


No corrective action is possible 
for this error. It is impossible 
to execute this program as a 
subprogram. 


nism 























The use of the linkage No corrective action is taken. 





a subprogram. Subprograms 
must have entry andexit points. 
















STRUCTURE OF CONDITIONAL ELSE encountered in IF 
SENTENCE INVALID, UNPAIRED 


ELSE ENCOUNTERED. 











!F verb to match it. 


statement with no preceding 










The conditiona! statement is 
terminated at this point. 


In a conditional statement 
any ELSE encountered is 
considered to apply to the 
immediately preceding IF 
that has not been already 
paired with an ELSE. 

























PROCEDURE DIVISION DOES NOT 


to an orderly halt 





No STOP RUN statement is 
coded in this program. There 
is NO way to bring this program 


144 P i i i i 
CONTAIN A STOP RUN. i i p is di. ici i i 5 
145 U EXIT WAS NOT THE ONLY STATEMENT EXIT statement is in paragraph The EXIT sentence must be Nothing is deleted from the 
IN PARAGRAPH. which contains statements preceded by a paragraph- program. The statement 
other than EXIT. name and be the only following the EXIT 
sentence in the paragraph. sentence is executed 
before the EXITs 
statements. 













No rule has been violated 
this diagnostic is strictly 
informative 


Results during execution are 
unpredictable 














L 


146 Cc THE BEFORE OPTION OF THE USE The BEFORE option is not The BEFORE option is not The AFTER option is assumed. 
STATEMENT IS NOT APPLICABLE IN allowed in UNIVAC OS/3 applicable to UNIVAC OS/3 
SYSTEM. COBOL. COBOL, but is accepted for 


compatibility. 
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Explanation 





























































Message | Severity Diagnostic Message 
Number Code 
147 Cc THE PROGRAM NAME IN CALL Program name exceeds eight A maximum of eight characters | The program name in the CALL 
STATEMENT EXCEEDS EIGHT characters in length. is allowed in subprogram statement is truncated to eight 
CHARACTERS. names. characters. 
148 U REFERENCE TO name CANNOT BE A definition of the listed name Every name referenced must The statement containing the 
RESOLVED. has not been encountered. be defined. reference is deleted. 
149 U QUALIFIED REFERENCE TO name A definition of the listed Every name referenced The statement containing the 
CANNOT BE RESOLVED. name has not been encountered with qualification must reference is deleted. 
under the specified qualifiers. be defined within the 
hierarchy associated 
with the highest level 
qualifier. 
150 Cc REFERENCE TO PROCEDURE name A definition of the listed A reference to a nonunique The reference is resolved by 
IS AMBIGUOUS, DEFINITION AT paragraph-name has not paragraph-name where ail the paragraph-name at the 
LINE literal USED. been encountered within definitions are outside the tisted line number. 
the section from which the section from which the 
reference is made, while reference is made must 
multiple definitions exist be qualified. 
outside the section of 
reference. 
U REFERENCE TO name OF name Normally this diagnostic The qualifier in a procedure The statement containing the 










CANNOT BE RESOLVED DUE TO 
DEFINITION AT LINE literal. 
name of name UNRESOLVED 
DUE TO DEF AT LINE literal. 
section-name. In the 



























indicates that a definition 

for the qualifier in a pro- 
cedure reference has been 
encountered but is not a 
names, level 01 and 77 
ambiguity mode of reference 
resolution (PARAM LST=A), 
this diagnostic is also 
generated when: 







. The highest qualifier of a 
data reference is not 
encountered in the data 
division but is encountered 
in the procedure division. 

2. The qualifier of a pro- 
cedure reference is not 
encountered in the pro- 
cedure division but is 
encountered in the data 

division. 


This implies that when the 
definition that will resolve the 
reference is added to the source 
program, the highest possible 
qualifier rule is violated. 










reference must refer to a 
section-name. Highest 
possible qualifiers (level 
indicator names, section- 


names) must be unique ina 
program since a reference 
to the name cannot be 
qualified. 









reference is deleted. 
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Severity 





Explanation . 
Diagnostic Message 


REFERENCE TO name AMBIGUOUS This diagnostic is generated Every name in a COBOL The reference is resolved by the 
DUE TO DEF AT LINE literal, DEF only in the ambiguity mode program must be unique, name at the fisted line number. 
AT LINE litera} USED. of reference resolution either because of different 
(PARAM LST=A) for an spelling, or because of 
unqualified reference when a qualification. 
duplicate definition of the 
listed name has been en- 
countered within the COBOL 
division implied by the 
reference type, e.g., GO TO 
implies procedure division; 
MOVE implies data division. 













































Highest possible qualifiers if the reference cannot be 
(level indicator names, resolved within the COBOL 







IMPROPER DEFINITION OF name 
AT LINE literal IMPLIED BY MANNER 


This diagnostic is generated 
only in the ambiguity mode 







OF REFERENCE. of reference resolution section-names, level 01 and division corresponding to the 
(PARAM LST=A) for an 77 names) must be unique reference type, the statement 
unqualified reference when a since a reference to the is deleted. 
duplicate definition of the name cannot be qualified. 






listed name has been en- 
countered in a COBOL 
division, other than the 
division implied by the 
reference type, and consti- 
tutes a violation of the 
highest possible qualifier 
rule. 
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If the reference cannot be 
resolved within the COBOL 
division corresponding to 
the reference type, the 
statement is deleted. 




















Highest possible qualifiers 
(level indicator names, 
section-names, level 01 
and 77 names) must be 
unique since a reference 
to the name cannot be 
qualified. 






name MUST BE UNIQUE, DUPLICATE 
DEFINITION FOUND AT LINE literal. 


Cc BEFORE OPTION NOT APPLICABLE 
IN C-MODE. 


157 P name STATEMENT 
OPERAND name (S 
IMPROPERLY INDEXED. 


This diagnostic is generated 
only in the ambiguity mode 

of reference resolution 
(PARAM LST=A) for qualified 
references when a redefinition 
of the highest qualifier 

violates the highest possible 
qualifier rule. 





































The BEFORE option is treated 
as though the AFTER option 
had been specified. 


The WRITE BEFORE 
ADVANCING option is 
not available in the 

conversion mode. 


Compatibility requirement 

























Precautionary warning, 
No corrective action 
is taken. 


When an item is 
indexed by an index 
name, that index 
name must be as- 
sociated with that 
table name. 


Index name used to 
address table element is 
Not associated with the 
table but is associated 
with another table which 
has the same element size. 
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Explanation 















































ments. I1 a conditional 
statement, a GO TO must be 
followed by ELSE, IF, ora 
period. 


Message Severity Diagnostic Message 
Number Code 
ee a ae 
P verb CONTAINS WORKING-STORAGE Due to the shared nature of Do not modify WORKING No action, Precautionary warning. 
OPERAND data-name WHICH SHOULD Programs operating under IMS STORAGE operands in the 
NOT BE MODIFIED mode, errors could occur if tMS environment. 
working-storage elements are 
modified at object program 
execution time. 
169 U verb STATEMENT CONTAINS INVALID The specified data item does See the general rules The statement containing the ~” 
OPERAND data-name. not satisfy the requirements specified for the desig- listed operand is deleted. ps 
for the designated verb, for nated verb. bs 8 
example, an alphabetic i ) 
Operand in an ADD < 
Statement. c 
al 2 
160 U verb STATEMENT OPERAND data-name The data item contains too References to items ina The statement containing the — 
iS IMPROPERLY SUBSCRIPTED. many subscripts, too few, or table must have the correct subscript error is deleted. = 
an improper type of subscript. number of subscripts or fo) 
indexes, subnumeric integers, 
subscripts must be unsigned, 2 
subscripts and indexes must ® 
not be moved in a single -_ 
data reference, and s 
references to items not in © 
a table must not be subscripted (?p) 
PA 
161 Uu verb STATEMENT CONTAINS INCONSISTENT The combination of operands See the rules for the indicated The statement containing the oO 
OPERAND data-name. in the statement conflict in verb statement. inconsistent operand is deleted. 3 
their usage, for example, OO 
moving a numeric item to an 
alphabetic operand. 
162 Cc verb STATEMENT CONTAINS SIGNED A signed literal has been See the specific rules for The sign of the literal is deleted. 
LITERAL literal. encountered. the designated verb. 
—}--- — 
163 U COMPOSITE OF OPERANDS IN verb The superimposition of all See rules for composite of The statement containing the 
STATEMENT EXCEEDS 18 DIGITS. Operands to the left of the Operands for the specified composite error is deleted. 
word GIVING exceeds 18 digits. verb. S 
oO 
164 U GO TO PRECEDES tMPERATIVE A GO TO statement is A GO TO statement must be The statements between the GO z 
STATEMENT. followed by other imperative the last statement in a TO and the ELSE, IF, or period m 
statements. series of imperative state- are deleted. rT 
< 
m 
r 

















Diagnostic Message 


verb STATEMENT OPERAND data-name 
NOT DEFINED IN LINKAGE SECTION. 


verb STATEMENT OPERAND data-name 
IS NOT LEVEL NUMBER 01 OR 77. 


ADDITIONAL MEMORY REQUIRED TO 
PROCESS STATEMENT CONTAINING 
verb. 


verb EXCEEDS LIMIT OF TEMPORARY 
DATA AREAS. 


verb STATEMENT OPERAND name IS NOT 
RECORD OR FILE-NAME. 








An operand not defined in 
the linkage section has been 
encountered in an entry or in 
the procedure division USING 
statement. 


An operand with a level 
number other than 01 or 
77, has been detected in 
an ENTRY or procedure 
division USING statement. 


This statement exceeds the 
internal main storage area 
available to process statements 
with multiple operands. 


The maximum number of 
temporary arithmetic data 
areas has been exceeded. 


The input-output statement 
does not reference a record- 
name or file-name. 





Explanation 


Data-names in an entry or 
procedure division USING 
statement must be defined 
in the linkage section. 


Data items in an ENTRY 
or procedure division 
USING statement are 
restricted to items whose 
level number is 01 or 77. 


The main storage necessary 
to process a single operand 
varies from 18 to 250 bytes, 
depending on the number of 
characters in the data-name 
and whether the item 
OCCURS, has an edited 
picture, or is subscripted. 
The maximum main storage 
available for statement 
processing is a function of 
the total main storage 
available to the compiler. 

A limit of 100 symbols 
exists for a single condition. 
A symbol in this context is an 
operand, an arithmetic opera- 
tor, a logical operator, a rela- 
tional operator, or a class. (A 
condition-name test expands 
to multiple symbols depending 
on the number of values asso- 
ciated with the condition- 
name.) 


The following verbs must 

refer to record or file- 

names: OPEN, CLOSE, READ 
WRITE, SORT, RELEASE, 
RETURN, INSERT, SEEK. 





The statement containing the 
listed operand is deleted. 


The verb is deleted from further 
compilation. 


The statement is deleted. Addi- 
tional main storage should be 
assigned to the compiler or the 
statement must be rewritten as 
multiple statements. 


Reduce the complexity of the 
expression or reduce the number 
of expressions in the statement. 


The statement in error is deleted. 
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i 
Message Severity Diagnostic Message 
Number Code 
Reason Recovery 


170 U SENTENCE PRODUCES EXCESSIVE Object code cannot be 
OBJECT CODE. produced for the entire 
sentence because of the 
sentence size. 


171 U PERIOD ELSE OR WHEN MUST NEXT SENTENCE must be 
FOLLOW NEXT SENTENCE followed by ELSE, period, 
or WHEN. 


172 PERFORM STATEMENT REFERENCES A PERFORM within the 


i A NON-DECLARATIVE PROCEDURE declarative section 


referenced a procedure 
outside of the declarative 
- 
: = 


section. 
176 DIVIDE STATEMENT PRODUCES The description of the The DIVIDE statement is deleted. 
MEANINGLESS RESULT. operands in a DIVIDE 
statement is such that only 
zeros could result for the 



















Generally, a complete 
sentence is limited to 
between 2048 and 4096 
bytes depending on the 
sentence structure. 


Reduce the sentence size by 
rewriting it as several sentences/ 
paragraphs. 























inan |F, NEXT 
SENTENCE must be followed 
by ELSE ora period. In 
a SEARCH, NEXT SENTENCE 
must be followed by 
WHEN, ELSE, or a period. 


The NEXT SENTENCE phrase is 
ignored. 






















Within a USE procedure, 
there must not be any 
reference to any non- 
declarative procedures. 







No action. Precautionary 
warning. 























verb STATEMENT OPERAND name 
REFERS TO FILE RECORD AREA. 


Both operands in the 
statement refer to the same 
storage area. 


The operand specified in The statement is deleted. 
the WRITE FROM, INSERT 
FROM, or READ INTO 
options, may not occupy 
the same storage area as 


the record or file-name. 


verb STATEMENT RECORD-NAME 
name IS NOT DEFINED IN FILE 
SECTION. 


The statement is deleted. 

















The listed operand is not 
defined in the file section. 


WRITE, INSERT, and 
RELEASE refer to items 
defined in the file section. 








COMPARISON FOR EQUALITY MAY BE 
MEANINGLESS FOR A FLOATING POINT 
OPERAND. 

















No rule has been violated. 
Message is strictly 
informative. 


A floating-point operand ina 
relational condition may cause 
the two operands not to be 
exactly equal. 


Expected results may not 
occur at execution time. 









quotient in the specified 
receiver. 
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182 








Diagnostic Message 


verb STATEMENT CONFLICTS WITH 
SEGMENTATION RULES. 


verb STATEMENT !NCOMPLETE OR 


CONTAINS INVALID OPERAND OR OPTION. 


a ee ee 






A procedure-branching verb 
is invalidly specified with 
respect to the rules of 
Segmentation, or an ALTER 
Statement refers to a 
paragraph that does not 
begin with aGO TO. 


An operand conflicts with a 
specified option or with 
another operand, or an 
Option that must be specified 
for a given statement was 

not encountered. For 
example, a WRITE to a mass 
storage device must contain 
an INVALID KEY clause. 








INTERNAL LABEL TABLE OVERFLOW. 








CLASS OF LITERAL CONFLICTS WITH 
CLASS OF data-name. 





data-name TRUNCATED 
OURING MOVE. 





COMPLETE TRUNCATION OF 
name /literal/result. 

















Either a sentence requires 
more than 256 internal labels 
or more than 24 internal 

labels are active. 














See the rules on segmentation 
for the listed verb. 








The statement in error is deleted. 

















See the rules for the specified 
verb. 











The statement is deleted. 

















A nonnumeric literal con- 
taining numeric characters 
is being moved to an alpha- 
betic item, or a nonnumeric 
literal containing non- 
numeric characters is being 
moved to a numeric item. 


The data-name being moved 
contains a greater number 
of character positions 

than the receiver or, when 
decimal point aligned, 
contains a greater number 
of digit positions than 

the receiver. 


Decimal point alignment is 
such that no portion of the 
item being moved can be 
contained in the receiving 
Operand. 












The class of all characters 
contained in nonnumeric 
literal must be consistent 
with the class of the 

receiving item. 

















Truncation occurs when 
any portion of the item 
being moved cannot be 
contained in the receiving 
Operand. 








Requirements for internal roe 
may be lowered by reducing the 
number of statements in a sen- 
tence. 





The statement is deleted. =| 





The data-name is moved and 
truncated. 


The MOVE statement or arith- 
metic GIVING statement is 
deleted. 
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Message Severity Diagnostic Message tention 
Number Code 
Reason Recovery 



























































183 P REDUNDANT ROUND OPERAND The numeric description Rounding is possible only The round operation is deleted. 
data-name. of the arithmetic result is when an arithmetic result 
such that no excess digit contains at least one ex- 
positions are available for cess digit from which the 
rounding into the listed round operation can be 
operand. based. 
184 P REDUNDANT SIZE ERROR OPERAND The numeric description A size error is possible The size error test is performed. 
data-name. of the arithmetic result is only if the arithmetic 
such that its value could result contains more 
never exceed the largest significant digit positions 
value that can be contained than the resultant 
in the listed operand. identifier. 
185 U FILE-NAME IN insert STATEMENT The record key is used. 





The file-name referenced For ORGANIZATION 

by the verb requires the INDEXED files, if 
SYMBOLIC KEY clause ACCESS is SEQUENTIAL 
under the SELECT clause. or EXTENDED, a symbolic 
key is required for the 
SEEK verb. If ACCESS 

is EXTENDED, a symbolic 
key is required for a 

READ that does not have 
the AT END clause. 


REQUIRES SYMBOLIC KEY 
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PERFORM STATEMENT LITERAL 
EXCEEDS 32,767. 


The TIMES literal in the 
perform statement exceeds 
the maximum allowable vatue. 


The accepted TIMES count is the 
rightmost 15 bits of the original 
value when converted to binary. 
This value is between 1 and 
32,767. 


The maximum value of a 
PERFORM TIMES literal 
is 32,767. 






















ADVANCING LITERAL EXCEEDS 
LIMIT. 






The maximum number of 
lines that can be advanced 
is 127 in the normal mode 
and three in the conversion 
mode. 











The WRITE ADVANCING 
literal exceeds the maxi- 
mum allowable value. 


The advancing line count is set 
to 1. 








Cc 

a] 

ie) 

> 

FILE AT LINE titeral NOT An OPEN or CLOSE has not Every file must be Results during execution are ay 
CLOSED been specified for the opened and closed. Files unpredictable. r 
WITHIN PROGRAM. file, or the OPEN is written on must be opened m 

OPENED : : é : < 
inconsistent with the for output or 1-0, files ™m 

activity associated with read from must be opened r 





the file. for input or 1-0. 











Diagnostic Message 


verb STATEMENT PROHIBITED 
WITHIN USE PROCEDURE. 


The only I-O verbs allowed in 

a USE procedure are: 

ACCEPT (not from system con- 
sole or job control stream) 
DISPLAY 

WRITE (to a printer only in 
USE FOR FORM OVERFLOW) 


See rules for USE verb. 





ADDITIONAL MAIN STORAGE 
REQUIRED TO PRODUCE OBJECT 
CODE LISTING. 











The compiler does not have 
sufficient main storage to 
produce the object code 
listing. 





ADDITIONAL MEMORY REQUIRED 
TO PRODUCE OBJECT PROGRAM. 





The compiler does not have 
sufficient main storage to 
maintain the compile time 
tables necessary to create 
the object module output 
for this program. 





KEY SIZES FOR FILE AT LINE 
literal NOT EQUAL. 


TRUNCATION OF FLOATING POINT 
OPERAND literal MAY OCCUR. 


*Floating point available in extended compiler. 





Record key size unequal to 
symbolic key size. 


Record key and symbolic 
key sizes must be equal. 


In any move from a floating- 
point operand to a nonfloating- Message is strictly 
point operand, the floating- informative. 
point value may not be able 

to be represented exactly in 

fixed-point format. 








No rule has been violated. 


ee eee eee 


The t-O verb is dropped. 


The object module is produced. 
Recompilation is necessary 
with more main storage 
assigned to the compiler. 


A recompilation is necessary 
with more main storage 
assigned to the compiler. 


Symbolic key size is changed to 
record key size, 


Truncation may occur. 
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© D.3. SYSTEM CONSOLE MESSAGES 


During compilation, COBOL source programs may encounter an error condition as indicated by a system console 
message. All operator system console messages are listed and described in the error messages programmer/operator 
reference manual, UP-8076 (current version). The programmer system console messages, those that are directed to 
the programmer, are given in the following table. The messages are listed in ascending order based on the message 
number and include the meaning and the corrective action to be taken. 
















Corrective Action 


Message - - 
D 
| Number iagnostic Message Meaning 
ccoi INSUFFICIENT MEMORY 


CcCco2 LOAD ERROR 


PATCH s aaaa IGNORED, SIZE INVALID 


CCOS 
CCO6 


Ccos 













Allocate sufficient main storage 
and rerun the job, 







Insufficient main storage provided to 
accommodate the processor. The job step 
is terminated. 

















Check the LOAD library to make sure 
that the phase is entered. If not, 

enter it and rerun, If the phase is 

in the library, contact your Sperry 
Univac customer representative. 


An error occurred while attempting to 
locate and load a job phase in the 
LOAD library. The job step is terminated. 












Correct the card format and rerun, 





A patch card format error has occurred 
in the control stream. The job step is 
terminated. 













where: 


Is the segment number. 











aaaa 
Is the address where the error 
occurred. 











A patch card format error has occurred in the 
control stream. The job step is terminated. 


PATCH s aaaa |GNORED, NO DELIMITER Correct the card format and rerun, 















Correct the card format and rerun, 


SNAP s aaaa IGNORED A snap card format error has occurred in the 


control stream. The job step is terminated. 






















Correct the control stream and 
rerun the job. 


NO SOURCE PROGRAM An error occurred when the end-of-file card 
was read prior to the first source card in 


the control stream. The job step is terminated. 














An error was detected in the PARAM card Correct the PARAM card and rerun. 
which specifies job options. The job step is 


terminated. 


PARAM CARD ERROR 
















A program designated as existing on a 
library file cannot be found. The job step is 
terminated, 







SOURCE PROGRAM NOT FOUND Mount the correct library file 


and rerun the job. 
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Diagnostic Message 


SOURCE LIBRARY FILE NOT ALLOCATED 


filename 
1/0 ERROR ONZJOB-STRM 4$. CODE=nnnn 
CORSCARD 


COMPILER ERROR phase indication 


COPY LIBRARY MODULE module-name NOT FOUND 


COPY LIBRARY FILE filename NOT ALLOCATED 


PRINTER NOT ASSIGNED 


COBOL compiler cannot access the library 
file designated as containing the COBOL 
source program. Job step is terminated. 


For filename: 
An 1/O error occurred on a work file, 
sOurce, copy, or object module file. 
The 4-digit code is a copy of the 
error status field settings. 


For JOB-STRM: 
An 1/O error occurred during job control 
stream processing. The 4-digit code is a 
copy of the control stream error code. 


For CORSCARD: 
An error was detected in the Jibrary 
update correction cards. CODE=0006 indicates 
error in the correction cards. CODE=0007 
indicates error in the SEQ card. 


In all cases, the job step is terminated. 


An error has occurred while attempting to 
position a file, or attempting to process 

a phase. The job step is terminated. A 
storage dump is provided. 


The source COBOL program has requested 
that a module be included from the copy 
library, and the module cannot be found. 
The job step is terminated. 


The source COBOL program has requested 
that a module be included from the copy 
library and the compiler cannot access 

the designated library file. The job step is 
terminated. 


An error has occurred while attempting 
to open the print file PRNTR. The DVC 
and LFD statements are missing or 
incorrect. The job step is terminated. 


Corrective Action 


Correct volume mounting or control 
stream error and rerun the job. 


Rerun the job. If the error persists, 
contact your Sperry Univac customer 
representative. 


Submit a Software User Report (SUR). 


Mount the correct library or correct 
the module-name reference and rerun 
the job. 


Correct the volume mounting or 
control stream error and rerun the 
job, 


Correct the control stream and rerun 
the job. 
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Appendix E. Compiler Listings 


E.1. SOURCE CODE LISTING 


A source code listing header line appears at the start of each source code listing. It identifies the compiler, the 
compiler version, the date of the compilation, and the time of day at which the COBOL program was compiled. If 
the date and time are to appear correctly in the source code listing header line, they must be set by the operator 
through the operator commands when the supervisor is loaded. The page heading of the source code listing locates 
the following information: 


(@) LINE NO. 


The line number (LINE NO.) is a compiler-generated number which identifies the particular line of COBOL 
source code with which it appears. The line number is used to reference lines of COBOL source code in the 

@ diagnostic listing, the object program listing, the data division memory map, the procedure division memory 
map, and the cross-reference listing. 


@ c 


If the COPY verb is used, the letter C appears after the compiler-generated line number, to indicate lines of 
source code taken from the copy library. 


(3) SEQ 


The source item sequence number is listed under SEO (card columns 1 to 6). The sequence number field (card 
columns 1 to 6) is optional. 


(4) SOURCE STATEMENT 
The text (card columns 7 to 72) of the COBOL source program is listed. 


(5) IDEN. 


Under IDEN., program identification information (card columns 73 to 80) is listed. This is an optional entry 
made by the programmer to provide identification or card deck information. The compiler takes no action 
upon it. 
(6) PAGE Page Number 
eS Page number associated with compilation listing. 


A sample source code listing is shown in Figure E—1. 


COMPILED BY UNIVAC OS/3E COBOL COMPILER VERSION 07.00/02 DATE 79/07/26 TIME 01.05.43 


// PARAM IN=TBL3T 


yY3aaWON'N 
c “AbY £508 


4/7 PARAM LST=(S,t40,C,DyX, A) 


SOURCE CREATION DATE bO/01/74 TIME 10.03 


LINE NOe SEC. SOURCE STATEMENT omen Onn oooo1 


Nu0G1 IDENTIFICATION DIVISION. 

95002 PROGRAM-ICD. TBL3T. 

ocecz REMARKS. THIS IS A TEST PROGRAM TO VALIDATE COMPILER PROCESSING 
ouco4 OF VARIABLE TABLES», VARIABLE GROUP ITEMS AND THE SEARCH VERB. 
ogous ENVIRONMENT DIVISICN. 

ovccve CONFIGURATION SECTION. 

eoou7 SOURCE-COMPLTERe UNIVAC-940C. 

oocok OBJECT-COMPUTER. UNIVAC-94CO. 

Cucas SPECIAL-NAMES. SYSLST IS Pe 

oce1e INPUT-OUTPUT SECTION. 

Ceol FILE-CONTROL. 

Cuol2 SELECT A ASSIGN TO TPFIL1 TAPE. 

90013 SELECT B ASSIGN TO TPFIL2 TAPE. 

Cuol4 I-O-CONTROL. 

NC015 SAME RECORD AREA FOR Ay Be 

00016 OaTA CIVISICN. 

Cc01? FILE SECTION. 

96018 FO OA 

ov019 RECORDING MOLE V 

Cuvec BLOCK CONTAINS 200 CHARACTERS 

9002} LAREL RECORDS ARE OMITTED 

0ule2 DATA RECCROS ARE AA, AB. 

Coo23 AA. 

ecae4 Q2 AAA PIC $999 COMP. 

0002s O3 AAB. 

Nueze CS AABA OCCURS 0 TO 106 TIMES DEPENDING ON AAA, 
00027 INDEXED BY AABAX1L, AABAX2, AABAX3, 
o0c2e ASCENDING KEY AABAB, 

60029 DESCENDING KEY AABAA IN AAB OF AAy 
Guo3e ASCENGING KEY AABAC. 

00031 O7 AABAA PIC $99. 

Ocoz2 U7 AABAB PIC $99. 

00033 G7 AABAC PIC $99. 

ooo34 

06035 ABA PIC S999 COMP. 

00036 ABB. 

00037 ABBA OCCURS 160 TIMES 

06038 INDEXED BY ABBAX1. 

00039 C7? ABBAA PIC S99 

00040 G7 ABBAB PIC S99. 

0004) G7 ABBAC PIC $99. 

OGO42 B 

00043 RECORDING MOCE U 

00044 LABEL RECORDS ARE OMITTED 

oac4es DATA RECORD IS BA. 

g0046 BAe 
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Figure E—1. Example of Source Code Listing 
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E.2. DATA DIVISION STORAGE MAP AND CROSS-REFERENCE LISTING 


The storage map heading line contains the PROGRAM-ID name, the compiler version, and the date and time of 
compilation. 


The page heading locates the following information: 


® 


@) 


LINE 
The compiler-generated line number on which the data item is defined. 
LEVEL 


The level indicator or level number assigned to the item. An * indicates that the item was generated by the 
compiler, as with TALLY. 


DATA-NAME 
The name of the item. 
REG 


Where applicable, the hardware register number which contains the address used as a base value for referencing 
the item. If a permanent register has not been dedicated to cover the item, an * is listed. 


DISP 


The displacement of the item relative to the address contained in the item’s cover register. The number is 
expressed in hexadecimal. 


ADDR 


The address of the item, relative to the first byte of the program. If blank, the address varies due to blocking, 
double buffering, etc. The number is expressed in hexadecimal. 


LENGTH 
The length in bytes of the item. 
TYPE 


The class or type of the item where: 


GP = Group 

A/N = Alphanumeric 

A = Alphabetic 

NUP = Numeric unpacked 
IDN = Index-data-name 
IDX = Index-name 

AE = Alphabetic edited 
NE = Numeric edited 
NP = Numeric packed 
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PTLOC 
The decimal point location of the item where: 


— integer indicates the number of fractional digit positions plus the number of leading P’s in the PICTURE, 
e.g., —5 for PIC PP999 or PIC 9.99999 or PIC 9999999. 


+ integer indicates the number of trailing P’s in the PICTURE, e.g., +5 for PIC 99P(5) 
occ 
The number of occurrences of the item as specified by the OCCURS clause. 


LINE NUMBERS OF REFERENCES 


If the cross-reference list has been specified, the line numbers where one or more procedural references to the 
item were made are listed here. 


A sample data division storage map is illustrated in Figure E—2. 


The information in the data division storage map is listed in ascending order according to line number. The 


information presented in the data division storage map may also be listed in alphabetical order based on the 
data-names (see 7.1.1). 


E.3. 


PROCEDURE DIVISION STORAGE MAP AND CROSS-REFERENCE LISTING 


The storage map heading line will contain the PROGRAM-ID name, the compiler version, and the date and time of 
compilation. 


The page heading locates the following information: 


@ 


y 
© © © 


© 


LINE 


The compiler-generated line number on which the item is defined. 


SECTION 


If the item is a section-name, it is listed here. 
PARAGRAPH 

If the item is not a seétion-name, it is listed here. 
PRIOR 

The priority number of the section-name. 
ADDR 


The address of the procedure, relative to the first byte of the program. If the name is not referenced in the 
program, NO REF is listed here. The number is expressed in hexadecimal. 


GO TO 


An E indicates that the procedure is the object of a GO TO. 
PERFORM 














PROGRAM-ID. TBL3T COMPILED BY F&NIVAC OS/3E COBOL COMPILER VERSION O7-00/02 DATE 79/07/26 TIPE 01.05.43 


YSIGWOAN-dN 
zc “A8Y L908 


DATA DIVISION MEMORY MAP PAGE 00068 


[oy G) DATA_NAME (4) () G) LENGTH Cy) "@). (i) LINE NUMBERS OF REFERENCES 


* * & SPECIAL NAMES * *& * 
99009 77 Pp 00454 00462 00464 


FILE SECTION # * # 
TALLY oc0190 


A oc420 00426 
AA CG189G 00429 
C01896 00158 00174 
00199 00218 
00248 ao0258 
oc282 00302 
C0321 00368 
00396 00419 
Co1892 00166 00184 
00211 00227 
c0249 00259 
00274 00277 
u0286 C0295 
00306 00316 
00363 00371 
00381 00400 
GO4D09 
60169 00185 
00221 00243 
C0292 00379 


90026 AASAX] 
93026. AAPAXZ 
93026 AABAX3 
90031 AAGAAK 
99632 J7 AASAE 
09033 AABAC 
93034 AB 
gg035 :3 ABA 
ggcz6 3 AES 


OOC1AE 
C0013G 
cocisée 
001692 
001694 
001896 
0018696 
C0189 
001892 


00425 
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00181 
o0225 
00408 
00437 
001892 
cooicc 
CO1892 
001894 
001896 
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00435 00436 00443 
001888 00446 
001888 OO4s4 





Figure E-—2, Example of Data Division Storage Map and Cross-Reference Listing 
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ENTRY 


@ 





An E indicates that the procedure is the object of a PERFORM. 
EXIT 


An X indicates that the procedure contains a PERFORM exit point. 


© © 


ALTER 


An A indicates that the procedure is altered. 


SORT* 


® © 


ENTRY* 


An E indicates that the procedure is the entry point of a SORT procedure. 


EXIT* 


® 


An X indicates that the procedure contains a SORT procedure exit point. 


DEBUG 


© 


An * indicates that the procedure is the object of a debug packet. 


If the cross-reference list has been specified, the line numbers where one or more references to the procedure have 
been made are listed under LINE NUMBERS OF REFERENCES. A sample procedure division storage map is shown 
in Figure E—3. 





The information in the procedure division storage map is listed in ascending order: according to priority number 
above SEGMENT-LIMIT, and within priority number in ascending order according to line number. The information 
presented in the procedure division storage map may also be listed in alphabetical order based on the procedure 
names (see 7.1.1}. 


E.4. OBJECT CODE LISTING AND EXTERNAL REFERENCES 


The object code listing heading line contains the compiler version number and the date and time of the compilation. 


Following the report heading line is a list of external reference symbols (EXTRN and ENTRY names). These are the 
symbols whose object time address cannot be calculated at compile time and must be resolved by the linker. The 
program name and segment names are also listed here so that their object time address can be determined by the 
linker. A 2-character ESID number (External Symbol Identification) follows each name. This number is used as a 
link between the ESID associated with all address constants and the element base to which that address is relative. 


The first entry in the list is the program name and its ESID number of 02. The program name is the PROGRAM-ID 
name from the identification division. If the COBOL program is segmented, the segment names follow. The 
8-character segment name is composed of the first six characters of the program-name and a 2-character segment 
number. The segment number 01 will be assigned to the first section-name whose priority number exceeds 49; 02 to 
the next section with a different priority number greater than 49, etc. The ESID of the first segment is 03, the next 
is 04, etc. 


The next group of names identifies various external programs required in the execution of the COBOL. program, 
such as the data management modules and special COBOL object time subroutines. 





*SORT, ENTRY, and EXIT will appear in the heading but these verbs are not available in the basic compiler, 
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The object code listing page heading identifies the following information: 


LINE # 
The compiler-generated line number on which each procedure division statement exists. 


BASE/DISPL 
This field lists the hardware base register number used to contain the cover address for the line of code. 
The displacement from the address in the cover register to this line of code is also displayed. 


If this field is blank, either no cover is needed for the line of code, or the cover register assignment at 
object time varies and cannot be defined. 





ADDRESS 
The program-relative address where the line of code resides. 


CONTENTS OF 

MEMORY 
The actual hexadecimal description of the code or constants produced. An ESID number appears to the 
right of each address constant (DC A). 


OPERAND 
ADDRESS 
The program-relative address of the data or constant area being referenced. If this field is blank, the item 
& is being addressed indirectly. 


OPCODE 


The mnemonic name for the constant or instruction produced on this line. If this field is blank, and the 
‘contents of memory’ field contains zeros, alignment is being effected for the next line of code. 


COMMENTS 
This field defines the purpose for which the code was generated. For code in the procedure division, the 


source program verb is listed. 


Prior to the procedure division, the following numbers, displayed under COMMENTS, are used to locate the 
indicated items and areas. 


Qa) Intersegment GO TO Subroutine 

Used when control is passed from one segment of a segmented program to another. 
@) Intersegment PERFORM Subroutine 

Used when a PERFORM references a section or paragraph in another segment. 
(3) PERFORM EXIT Subroutine 


Called at end of paragraph or section referenced as PERFORM EXIT to determine if PERFORM is active or 
not. 





LINE ne NAME 


“@ NAME 
x eK © DEPENDING SECTION 4% * * & & 


00150 
97150 
00150 


09151 
09154 
03164 
99172 
90186 
931e9 
09197 
93267 
09216 
90224 
03232 
09237 
09247 
03257 
03265 
93271 
00261 
03791 
09 3C1 
03312 
09319 
93330 
03337 
93346 
O09 355 
99 360 
00367 
93374 
09265 
09392 
03397 
99406 
03417 
90428 
00439 
03432 
00445 
09447 
00449 
09451 
00460 
00465 





ppsucoto 
opscroo1 
pPsGoo02 
* & * & END DEPENDING SECTION 
0010 
1OCO-MOVE-V-TO-F-PADDED 
101G-MOVE-V-TO-F-TRUNC 
10 20-MOVE-V-TO-F-uUST-PAD 
1030-MOVE-V-TO-F-uUST-TRUNC 
104G-ZERO-LENGTH-TC-F 
1050-MOVE-F -TO-V¥-PADDED 
1060-MOVE-F-TO-V¥-TRUNC 
107U-MOVE-F-TO-ZERO-LENGTH-V 
1O60-MOVE-FIGURATIVE-TO-V 
1090-GECISION 
11CU-MOVE-V-TO-V-PADCED 
1L10-MOVE-V-TO-V-TRUNC 
112U-MOVE-V-TO-V-ZERO-LENGTH 
20CU-DECISTON 
201U-IF -V-VS-LONGER-F 
2020-1F -V-VS- SHOR TER-F 
2030-1F -7EP O-LENGTH-VS-F 
204U-IF -V-VS-V 
205C-IF-2-VS-Z 
Z06L-IF-V-VS-FIGURATIVE 
2070-IF -ZERO-LENGTH-V-V S-FCON 
ZO8U-IF ~V-ALPHAGETIC 
20S0-IF-V-NUMERIC 
3OCU-DECISION 
3G10-EX AMINE-V-TALLY-ALL 
3O2Z0-EX AMINE-V-TALLY-REP-ALL 
ZO30-EXAMINE-V=TALLY-REP-TIL 
3O4O-EXAMINE-ZERO-LENGTH-V 
4OCG-DECISION 
4OLO-TRANSFORM-V 
40 2U-TRANSFORM-ZERO-LENGTH-V 
5O010-wRITE-V-REC-MODE-V 
$620 
5030 
50%u-wRITE-V-REC-MOGE-U 
5050 
5060 
5076 
9ODO-SUMMARY 
SODG-DISPLAY 
901C-PASS 


Figure E—3. Example of Procedure Division Storage Map and Cross-Reference Listing 


* 


LO} & 


* 


PROCEDURE DIVISION MEMORY MAP PAGE 00071 


of 


002738 
002752 
00276C 
x * 

002786 
OO27A4 
oo284C 
OO28Fo 
OC299E 
OU2ZA48 
CO2AE6 
OC2BAC 
OG2C5E 
OG2CFC 
OG20SC 
OG2GBe 
OO2ED6 
OG2FF4 
€031C6 
063122 
OC3246 
OQG336A 
CG3442 
QO35CA 
CO3664 
NC37AE 
CO387C 
C3952 
OC3A26 
OOF A44 
OGZAC4 
CO357A 
CU3C84 
OU30CE 
OO3D2A 
QG3EC2 
CO3FS4 
OOGGEA 
Cc4Geo 
Coaicls 
Cow2ie 
OusZsc 
O042B4 
004284 
004390 
Oo44cs 


CG PERFOR 


E 
E 


-~ - + + - VERB REFERENCES 


ALIER sorn(#) DEBUG 
0 oy ot ion ExT LINE NUMBERS OF REFERENCES 
£ x 


x 
x 





YASWNN-dN 
Z *A8Y LS08 


” 
‘U 
m 
a 
a 
-< 
Cc 
ca 
< 
> 
oO 
{e) 
8 
my 
a. 
3 
« 
2 
= 
@ 
3 
~~ 
w 


00170 00178 00187 00195 
00214 00222 00230 G0245 
00264 00278 00288 00298 
00317 00327 00335 00343 


T3A31 ALVOdN 




















8057 Rev. 2 SPERRY UNIVAC Operating System/3 E-9 


UP-NUMBER UPDATE LEVEL | PAGE 


@ (@) cvs 


Converts packed decimal to binary. 


() cvD 


Converts binary to packed decimal. 
6) Multiply Half-Word Subroutine 


Determines product of two binary half words. 


) 


CVB and Multiply Half-Word Subroutine 


Converts a packed decimal number to binary and multiplies it by another binary number. 


GO TO DEPENDING Subroutine 


@) 


PERFORM function required by GO TO DEPENDING function. 
Converts separate sign to embedded sign. 

Converts embedded sign to separate sign. 

Same as 10. 


Calculate occurrence number. 


@®@e6 62 


Transient Storage Area 


Storage area used to perform certain intermediate calculations. 


@ 


Special Constants 
Constants required by verb generators. 
(©) Address of USING Argument Area 


Pointer to area used to pass USING arguments to called routines; also used by ACCEPT and DISPLAY 
functions. 


Address of USE Procedure Table 
Pointer to table of USE procedure addresses. 
Address of Altered GO TO Table 


Pointer to table of altered GO TO’s in priority segments. 
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Start of BAT Table 

A table of addresses used to reference data division entries. 
Start of PEP Table 

A table of addresses of referenced procedures. 


Start of DTF Block Addresses 


UPDATE LEVEL 


A table of addresses which define the starting points of DTF’s and the COBOL prefixes for each. 


Start of EXTRN’s for COBOL Subroutines 

EXTRNed address of subroutines required by certain COBOL functions. 
VCON Reference Table 

A table of addresses created by CALL statements compiled as VCON’s. 
PERFGRM EXIT Storage Area 


Area used to save address and other indicators for PERFORM functions. 


Index-Name Storage Area 


Area used to store values of indexes: the value of TALLY is also stored in this area. 


PERFORM n TIMES Counters 

A table containing the counters for the PERFORM verb. 

Start of DTF Tables 

A series of tables used to define files for input/output functions. 
Start of Altered GO TO Table 


A table of altered GO TO’s in priority segments. 





E-10 
PAGE 
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& G0) Start of USE Procedure Table 


A table used to reference USE procedures containing necessary indicators and addresses. 
6) Start of Data Division Initial Values 
Start of listing of constants produced by VALUE clause in working-storage section. 
62 Start of Procedure Division Constants 
Area contains those values and constants required by procedure division literals and functions. 


A sample object code listing is shown in Figure E—4. 


E.5. DIAGNOSTIC ERROR LISTING 


The diagnostic listing header tine contains the program-ID name, the compiler version, the date, and the time of 
compilation. The page headings locate the following information: 


G@) LINE# 


Compiler-generated number which identifies the particular line of source code with which it appears. 


@ @ sve 


Severity code letter 


@) ERROR 


Diagnostic number 





(4) DIAGNOSTIC MESSAGE 
\ Brief explanation of the error condition 


| ; Explanation of the text of the diagnostic error listing is given in the system messages programmer/operator 
; reference, UP-8076 (current version). 


A sample diagnostic listing is shown in Figure E—5. 





PROGRAM-I0, TBL3T 


TIL3TGAG 2 
CM3VMOVE OA 


COMPILED BY UNIVAC OS/3E COBOL COMPILER 


CCAEXM94 03 
bDosTl1l1l 


Ob 


LINE & BASE /DISFL 


>rrrrrrrrrrerrrpPrerrrrrreprprrreP,rrrrrrPrrrrprrrn”AnnnHAATA TAN 





ccc 
eas 
ac6 
CUA 
Océ 
fic 
C12 
Cie 
aia 
CLE 
CéE2 
coe 
cus 
%u8 
OCs 
CUE 
Cie 
Ole 
Cla 
SLE 
Cée 
C24 
828 
C2c 
Cee 
C30 


rec 
C70 
C74 
C768 


CCaBJERR G4 
CcaBJERZ GC 


ADDRESS 


cecooo 
ccccu2 
OCCoO6b 
ccoccgs 
ceceoc 
oecoiad 
cccol12 
cecois 
cecole 
oecalc 
occc2c 
CGCO<4 
ocoozs 
LCcezc 
occn39 
GCLO32 
CELN36 
CCCOSA 
CCUOSZE 
tCLO42 
Oocco46 
UCCO4A 
ceca4c 
cccoso 
coces4 
UCCOSE 
ccClGs8 
cccceG 
cCcrg0 
occcg94 
occcg9s 
GcCecogse 
Cecoad 
CCCCA4 
CCCOA8 
oCCOAC 
cceccoso 
occaBs 
occcebs 
GCCCCBC 
occoco 
cecoc4s 
accoce 
accaocc 
oacooo 
GOcoD4s 
oocoos 
cecooc 


CONTENTS CF MEMORY 


VERSION 07.00/02 


EXTERNAL REFERENCES 


CBaC aD 
CFaDcP 


FG 
EG 


F 


F 
A 


cocconzs 
coco1o2e 
cecoe7s&6 
OCCOZEES 
cococcesg 


58 
41 
19 
47 
58 
9S 
90 
47 
45 


FO 
oc 
FO 
8b 
co 
Ou 
oc 
Ou 
ia) 


ccud 


96 
4F 
U7 


OF 
1c 
Fe 


occa 


ceccocoeccecoorco 


1 
() 


UOuOCZEE 
GOu02734 
oCvu02738 
coolt2752 
GOcO276C 
uOvO44cs 
COuUCH4HZA 
GOCO44Aa2 
COGO4DGA 
COCO4OBO 
Geco4sius 
GOuds2i€ 
Gcoo4s2sc 
coocw254 
COcO4s44c 
o0cCO4390 
coce42b4 
60000210 
00000216 
oococ3c8 


Cle 


Cl2 
CFC 


cou 


coc 
co4 
cece 
ccc 
cou 
C12 


C37 
C3C 


Cé 


Cz 


es 
co 


CSJALPH 06 
CwATRANS OE 


CSaNnuMU 07 
CWAEBZAS OF 


OPERAND ADDRESSES 


ococos 


oCO014 
060124 


OvLOC3A 


OCOCSF 
ou0ctSsé 


Figure E—4. Example of Object Code Listing and External References 





DATE 79/07/26 


TIME 


CS ANRP 
CBaOPCL 3 


OPCODE 


BAL 
BAL 
BCR 
LM 
tM 


R 


=< 


rPPrrrrrrrprrrrerrrPrrrrprp x 


O01 05-43 PaGe 00010 


08 CBa@ANR 09 
10 


COMMENTS 














YAEWNN-dN 
z ‘A8Y LG08 






¢/wiaysAg BuesedQ OVAINN AYY3dS 


13A37 aLvadn 
g 








) 2) G) 
Ds v 


00160 
03168 
03176 
93184 
031923 
o2274 


1@1 
181 
181 
181 
181 
181 


TBL3T 


RROR Oe acer 


AAP TRUNCATED 

AAB TRUNCATED 

AAF TRUNCATED 

AAP TRUNCATED 

AAE TRUNCATED 

AAP TRUNCATED 
xe Re RERP ORS 


MESSAGE 


DURING MCVE. 
DUFING MCVE. 
CURING MCVE. 
DURING MCVE. 
DURING MCVE. 
DURING MCVE. 


u- = croe S- 


coco c-  oocod P- coos a 


CS/3E CCbOL COMPILATION COMPLETE ToL3T START 01.05643 END 


Figure E—5. Example of Diagnostic Listing 


COMPILED BY UNIVAC OS/3E COBOL COMPILER VERSION 07.00/02 DATE 79/07/26 


01.07.59 


TIME 


01.05.43 








PAGE 


go077 









YSEWAN-dN 
Z “ASH LS08 


a9Vd | 13A37 ALVGdN 


¢/weyshg Buneiedog DVAINN AYY3dS 
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E.6. ALPHABETICALLY ORDERED DATA DIVISION CROSS-REFERENCE LISTING @ 


This listing presents the same information as the data division storage map (Figure E—2), but the items are presented 
in ascending sequence by data-names. 


Figure E—6 is a sample alphabetically ordered data division cross-reference listing. 


E.7. ALPHABETICALLY ORDERED PROCEDURE DIVISION CROSS-REFERENCE LISTING 


This listing presents the same information as the procedure division storage map (Figure E—3), but the items are 
listed in ascending sequence by procedure-names. 


Figure E—7 shows a sample alphabetically ordered procedure division cross-reference listing. 











P2ZOGRAM-ID. TBL3T COMPILED BY LNIVAC OS/3E COBOL COMPILER VERSION 07.00/02 DATE 79/07/26 TIPE 01.05.43 


YASWON-dN 
Z “AS8Y LSG08 


DATA DIVISION CROSS REFERENCE PAGE 00073 
DATA NAME LINE REG DISP ADDR LENGTH TYPE PTLOC OCCURS LINE NUMBERS OF REFERENCES 


cocis8 00420 00421 00426 00431 
coc23 cocue 001890 602 VGP 00429 
cco24 cec4 001890 2 BIN 00158 00166 00174 00182 
00199 00209 00218 00226 
00248 00251 00258 00261 
00282 0C293 00302 00307 
60321 00361 00368 00375 
00398 OC4O7 00419 
001892 00168 00176 00184 00193 
00211 O0220 Q0227 00239 
00249 00252 00259 00262 
G0274 OC275 00277 GO284 
og286 O0C287 00295 00297 
00306 00308 00316 00322 
00363 00370 00371 00377 
GO381 00388 GO4¥00 00402 
oo4o9 
001892 00169 0C177 00185 00202 
GN221 00228 00243 00253 
60292 00333 00379 00389 


uc1s92 
oc1is94 
0C1896 
GCOLA8 
occ1s6o 
000168 
ocis9o 
oc1890 
601892 


AATAA 
AAPAG 
AABAC 
AASAX1 
AABAX2 
AABAXS 
A3 

ABA 
A3e 


NN @@OONN AY 


” 
% 
m 
a 
a 
< 
Cc 
= 
5 
>) 
2) 
8 
r=) 
c. 
a 
rf 
® 
3 
— 
w 


OF UN OT Je UN OT Un 


00181 
oo225 
00408 
00437 


n o 
Cc Cc 
oO 


001892 

G01892 

ociss4 

A3 BAC 001896 

A3 BAX1 oao1co 

8 00435 00443 
BA 001888 00446 

BAA 001888 00434 

BAB 00188A , 

BABA G0188A 

BABAX1 ooo1ce . 
FAILURE 002510 00267 00393 
00454 Oo464 


AZEA 
AZ BAA 
AZ BAB 


eM UN WN 


NHR OKOS 
TSA31 3ivddn 


000190 
OO1AFrO 
OC1AFO 00238 00248 





Figure E—6. Example of Alphabetically Ordered Data Division Cross-Reference Listing 





PROCEDURE DIVISION CROSS REFERENCE PAGE oc075 


PROCEDURE NAME TYPE LINE AODR GO PERFORM ALTER SORT OEBUG 
PRI TO ENTER EXIT ENTER EXIT LINE NUMBERS OF REFERENCES 


YASWNN-dN 
é “A8H LSG08 


o> scoo0e PAR C0150 002738 E x 

op $oo000l PAR co150 002782 E x 

b> $oco02 PAR co1so o0276C E x 

0010 PAR €0151 002786 

10 00-MOVE-V-TO-F-PADDED PAR C0154 CO27TA4 

1010-MOVE-V-TO-F-TRUNC PAR C0164 oo284c 

10 20-MOVE-V-TO-F-JUST-P AD PAR €0172 cO28aF6 

13 30-MOVE-V-TO-F-JUST-TRUNC PAR C0180 CO299E 

10 40-ZERO-LENGTH-TO-F PAR C0189 COZA48 

1050-MOVE-F-TO-vV-PADDED PAR CO197 OO2ZAE6 

10 60-MOVE-F-TO-V-TRUNC PAR C0207 CO2BAC 

107G~MOVE-F-TO-ZERO-LENGTH-V PAR €0216 OG2CSE 

10 80-MOVE-F IGURATIVE-TO-V PAR C0224 GO2CFC 

19090-DECISION PAR (C0232 - 20209C 

11 CO-MOVE-V-TO-V-PADDiD PAR C0237 OO2DB8 

11 10-MOVE-V-TO-V-TRUNC PAR (C0247 CG2ED6 

21 20-MOVE-V-T0-V-ZERO-LENGTH PAR C0257 OG2FF4 

209 NG-DECISION : PAR CC266 063106 

20 10-IF-V-VS-LONGER-F PAR C0271 003122 

20 20-IF-V-VS-SHOPTER-F PAR (C0261 003Z46 

20 30-IF-ZERO-LENGTH-VS-F PAR C€C291 00336A 

20 40-IF-v-VS-V¥ PAR C6301 CO3442 

2050-IF -2-vS-2 PAR C0312 CO3SCA 

20 60-IF-V-VS-FIGURATIVE PAR C0319 co3664 

20 70-1F-ZERO-LENGTH-V-VS-FCON PAR £0330 OC37A6 

20 80-IF-V-ALPHABETIC PAR C0337 CU387C 

20 90-IF-V-NUMERIC PAR CO346 003952 

30 00-DECISION PAR €0355 003428 

30 1O-EXAMINE-V-TALLY-ALL PAR C0360 CO3AG4 

30 2G-EXAMINE-V~TALLY-REP-ALL PAR (C0367 CO3AC4 

39 30-EXAMINE-V-TALLY-REP-TIL PAR CUO374 OU3BT7A 

30 40-EXAMINE-ZERO-LENGTH-V PAR (CG385 co3c84 

4OQO-DECISION PAR CC392 CGO3D0E 

40 10-TRANSFORM-V PAR C0397 OO302A 

40 20-TRANSFGRM-ZERO-LENGTH-V PAR CC406 CO3EC2 

§5010-wRITE-V-REC-MODE-V PAR CO417 CO3FS4 

50920 PAR CO428 OC4O6A 

5030 PAR CO430 oo8ceo 

50 40-wRITE-V-REC-MODE-U PAR C0432 004108 

5350 PAR co44s COS21E 

5060 PAR CO447 CO425C 

5070 PAR CG449 C042B4 

90O0O-DISPLAY PAR C0460 004390 

90 00-SUMMARY PAR C0451 CO42B4 

9010-PASS ccse6s Co44os 00170 00178 00187 
00214 00222 00230 
00264 00278 00288 
00317 00327 00335 
00365 00372 00382 
0041) 00425 00441 

90 20-FAIL OO4842A 00171 00179 00188 


Y 
0 
m 
a 
a 
< 
Cc 
= 
< 
> 
oO 
io) 
8 
PY 
= 
> 
ra) 
ri 
® 
3 
Ww 


13Aa71 3LVadn 





Figure E-7. Example of Alphabetically Ordered Procedure Division Cross-Reference Listing 
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Appendix F. Conversion Mode 


F.1. GENERAL 


To facilitate the conversion of !BM/360 DOS COBOL level D to SPERRY UNIVAC Operating System/3(OS/3) 
COBOL, a conversion facility has been built into the OS/3 extended COBOL compiler. This facility, called the 
conversion mode (C-mode), accepts COBOL source code and alters it to American National Standard specifications, 
or issues diagnostics so the programmer is made aware of the need for changes. 


F.2. CONVERSION MODE OPERATION 
A PARAM statement option is available to energize the conversion mode of the OS/3 COBOL compiler. 


The conversion mode availability does not imply total source program transfer capability. Its intent is to minimize 
the volume and complexity of source program alterations necessary to compile successfully a given COBOL-D 
program. Every attempt is made to provide software support for those language differences that would, under a 
totally manual conversion process, require a knowledge of the source program intent and logic flow. Source program 
statements that must be altered prior to compilation are, in most cases, independent of program design. 


Several methods are available by which the conversion mode operates on a COBOL-D source program. In addition to 
accepting portions of the alien syntax and interpreting that syntax in a COBOL-D manner, the compiler alters the 
meaning of certain source clauses and statements. 


In the conversion mode, various compiler processing paths are altered to effect a change in the semantic 
interpretation of a COBOL-D clause or statement, as in the case of contradiction across compilers associated with 
the IF NUMERIC statement. 


Occasionally, an entire processing philosophy can be reversed. In the conversion mode, the compiler assumes that 
ASCII print control characters are utilized in all print files. In addition, a special COBOL-supplied object time 
subroutine is provided to ensure acceptable object program print speed. This software bridges the gap between the 
exclusive use in COBOL-D programs of the WRITE AFTER ADVANCING statement and the associated UNIVAC 
90/30 System hardware limitation. 


This appendix describes the known differences that exist between COBOL-D and UNIVAC OS/3 COBOL. It also 
defines the language differences that the conversion mode renders transparent. Those language differences for which 
no automatic software support is possible also are identified here, along with the appropriate source program change 
requirement. 


When functioning in the conversion mode, many of the compiler American National Standard language features are 
disabled. Therefore, it is not recommended that a COBOL-D program, once converted, be modified to take 
advantage of the many additional OS/3 COBOL language capabilities without first being totally converted to 
American National Standard COBOL. 
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In the normal American National Standard COBOL mode, COBOL-D language differences are not permitted. The a 
special processing interpretations and software extensions available in the conversion mode are not supported in the 
American National Standard mode; that is, control character print files are unique to the conversion mode. 


F.3. CONVERSION MODE SYNTAX 
The differences between COBOL-D and OS/3 COBOL are described in the following paragraphs within each program 
division. 
F.3.1. Identification Division 
a PROGRAM.-ID. program-name. 
COBOL-D 
Program-name is one to eight characters enclosed in quotation marks. 


OS/3 COBOL 


Program-name is 1 to 30 characters not enclosed in quotation marks. Only the first 6 characters, 
excluding hyphens, are used to identify the object program. 


C-mode 





OS/3 COBOL accepts a 1- to 8-character name enclosed in quotation marks. Only the first 6 characters, @ 
excluding hyphens, are used to identify the object program. 


F.3.2. Environment Division 
a CONFIGURATION SECTION heading. 


COBOL-D 
Optional 


OS/3 COBOL 
Required 


C-Mode 
Optional 
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SOURCE/OBJECT COMPUTER clause. 


COBOL-D 
IBM-360 model-number 


OS/3 COBOL 
UNIVAC-3030 


C-mode 
The compiler accepts any SOURCE/OBJECT COMPUTER entries valid for COBOL-D. 


SPECIAL-NAMES paragraph/DECIMAL-POINT IS COMMA clause 


COBOL-D 
Does not exist. Reversal of decimal point and comma is activated by a parameter on the CBL control 
card. 


OS/3 COBOL 
Reversal of decimal point and comma controlled by SPECIAL-NAMES entry. 


C-mode 
No automatic support. The converter must insert a special-names paragraph and the DECIMAL-POINT 
1S COMMA clause into the source program before compiling. 


If the CONSOLE or SYSLST option of an ACCEPT/DISPLAY statement is used in the program, the 
compiler automatically produces a special-names entry, internally, for the program. CONSOLE is 
equated to SYSCONSOLE, and SYSLST is equated to SYSLST. 


SELECT/ASSIGN clause 


COBOL-D 


DIRECT-ACCESS 
ASSIGN TO ‘external-name’ UNIT-RECORD 
UTILITY 


device-number UNIT (s) 


OS/3 COBOL 
ASSIGN TO ‘external-name’ integer implementor-name 


C-mode 
No automatic support. The COBOL-D SELECT statement, with respective ASSIGN clauses, must be 
replaced by the appropriate SELECT/ASSIGN clauses before compilation. 


ACCESS clause 


COBOL-D 
The word ‘IS’ is optional. 


OS/3 COBOL 
The word ‘IS’ is required. 


C-mode 
The word ‘IS’ is optional. 
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a KEY clauses 





COBOL-D 
The word ‘IS’ is optional. 


OS/3 COBOL 
The word ‘IS’ is required. 


C-mode 
The word ‘IS’ is optional. 


a 1-O-CONTROL paragraph entries 


COBOL-D 
Allows the clauses of the |-O-CONTROL paragraph to be separated by periods. 


OS/3 COBOL 
Allows the clauses to be separated by a comma or a semicolon. A period must follow the last entry in 
the paragraph. 

C-mode 
No automatic support. The embedded periods within the |-O-CONTROL paragraph must be removed 
prior to compilation or diagnostics will result. 


a RERUN clause 


COBOL-D 





DIRECT ACCESS 


RERUN ON external-name { UTILITY 


\ device-number 


UNIT(s} EVERY integer RECORDS OF file-name. 
External-name may not be the same as the external-name in an ASSIGN clause. 


Allows a maximum of 20 external devices to be used to store checkpoint records, only one of which can 
be a direct access device. 


Checkpoint records are written preceding the execution of integer for a READ, WRITE, or REWRITE 
statement. Integer may not exceed 8,388,607. 


OS/3 COBOL 
RERUN ON ‘external-name’ EVERY integer RECORDS OF file-name 
The external-name must be specified in an ASSIGN clause. 


The only restriction on the devices is the compiler limit of 63 devices per program. 
Integer may not exceed 9,999,999. 


C-mode 
No automatic support. The RERUN clause must be replaced by one that conforms to the OS/3 COBOL 
format. A SELECT statement must be added for each external-name in each RERUN clause. 











8057 Rev. 2 
UP-NUMBER 


SPERRY UNIVAC Operating System/3 


APPLY clause for FORM-OVERFLOW 


COBOL-D 


APPLY overflow-name TO FORM-OVERFLOW ON file-name. 


OS/3 COBOL 
This clause is not supported. 


C-mode 


F-5 
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No automatic support. Remove the APPLY FORM-OVERFLOW clause from the source program. Add a 
USE FOR FORM-OVERFLOW procedure in the declaratives portion of the procedure division for 


detection of page breaks. 
APPLY clause for RESTRICTED SEARCH 


COBOL-D 
The word ‘ON’ is optional. 


OS/3 COBOL 
The word ‘ON’ is required. 


C-mode 
The word ‘ON’ is optional. 


COPY library-name 


COBOL-D 
Library names are enclosed in quotation marks. 


OS/3 COBOL 


Library names are not enclosed in quotation marks. 


C-mode 


Library names are enclosed in quotation marks. All libraries are expected to be in UNIVAC OS/3 


format. 


F.3.3. Data Division 


Data formats 


COBOL-D 


COMPUTATIONAL-1 specifies short floating-point format; COMPUTATIONAL-2 specifies long 


floating-point format. 


OS/3 COBOL 
COMPUTATIONAL-1 and 2 are not supported. 


C-mode 
COMP-1 and 2 are not supported. 
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COBOL-D 


Optional clause. If omitted, LABEL RECORDS OMITTED is assumed. For LABEL RECORDS ARE 
data-name, the data names must be 01- or 77-level items in the linkage section. 


OS/3 COBOL 
Required clause. If the clause is omitted, a diagnostic is produced and OMITTED is assumed (unless 
device is disc, then labels are assumed to be STANDARD). For LABEL RECORDS ARE data-name, the 
data-name record description must be subordinate to the file description. 


C-mode 
Optional clause. Same default as COBOL-D. Label! data-names must be in linkage section as 01- or 
77-level items. 


a PICTURE clause 
COBOL-D 


An external floating-point item may be defined by a PICTURE, which contains an E and two sign 
characters. The sterling currency feature may be specified by extensions to the PICTURE claus~ 


OS/3 COBOL 
Neither the sterling currency feature nor the external floating-point PICTURE description is supported. 


C-mode 
Neither the sterling currency feature nor the external floating-point PICTURE description is supported. 





. USAGE clause @ 


COBOL-D 
The USAGE IS COMPUTATIONAL clause indicates that the data is in binary format. 


If USAGE IS COMP, COMP-1, or COMP-2, intra-record slack bytes are added by the compiler to ensure 
that the data is aligned on a half-word, full-word, or double-word boundary. 


OS/3 COBOL 
USAGE IS COMPUTATIONAL indicates that the data is in packed decimal format. Binary data formats 
are not supported. COMP-1 and 2 are not supported. 


C-mode 
There is no support for binary or floating-point data formats. 


2 Working-storage section 


COBOL 


All 01's are aligned on a double-word boundary. 


OS/3 COBOL 
All level 01’s in working-storage section are aligned on a full-word boundary. 


C-mode 
All level 01’s in working-storage section are aligned on a full-word boundary. 
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COPY specifications 


COBOL-D 
The COPY statement is allowed on 77 items in the working-storage and linkage sections. 


OS/3 COBOL 
The COPY statement is not allowed on 77 items. 


C-mode 
The COPY statement is allowed on level-number 77 items in the working-storage and linkage sections; 
however, the implied replacing feature is not supported. Replacing can be accomplished by use of 
explicit REPLACING clauses. ALL COPY libraries are expected to conform to UNIVAC OS/3 formats. 


F.3.4. Procedure Division 


ACCEPT statement 


COBOL-D 
A maximum of 72 characters may be accepted from the console. 


When the FROM option is not used, one logical record will be retrieved from the system logical input 
device (SYSIPT). 


Since a special-names paragraph is not available, the only acceptable FROM option is CONSOLE. 


tf /* is encountered on an ACCEPT statement, a fall through to the next source statement is effected. 
End-of-file detection is the user's responsibility. 


OS/3 COBOL 
A maximum of 60 characters may be accepted from the system console. 


When the FROM option is not used, a maximum of 4095 characters (52 card images) is retrieved from 
the job stream. 


lf /* is encountered on an ACCEPT statement, an object-time diagnostic is issued and the program is 
terminated. 


C-mode 
SYSIPT is equivalent to the UNIVAC OS/3 job control stream file. 


The compiler creates an internal special-name definition to equate CONSOLE to SYSCONSOLE. 
DISPLAY statement 


COBOL-D 
When UPON option is omitted, SYSLST is assumed. 
Displays may be directed to SYSPUNCH. 
The sign of a numeric item is not displayed as a separate character, e.g., —32 displayed as 3K. 


OS/3 COBOL 
When the UPON option is omitted, SYSCONSOLE is assumed. 
Displays to a punch are not supported. — 
The sign of a numeric item is displayed as a separate character, e.g., —32 displayed as 32—. 
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C-mode 
When the UPON option is omitted, SYSLST is assumed. The compiler creates an internal special-name & 
definition to equate SYSLST to SYSLST. 


Restriction. Displays to a punch are not supported. The sign of a numeric item is displayed as a separate 
character. 


IF statement 
COBOL-D 
A class test may be performed on an item whose usage is either DISPLAY or COMP-3 (packed decimal). 
An IF NUMERIC test always assumes the item is signed, for example: 
DATA-AA PIC X VALUE IS ‘A’. 


An IF NUMERIC test on DATA-AA yields a ‘yes’. 


OS/3 COBOL 
A class test may be performed on an item whose usage is either DISPLAY or COMP-3. 


An IF NUMERIC test does not assume an item is signed. The sign is interrogated only if the item is 
declared to be signed; for example: 


DATA-AA PIC X VALUE IS ‘A’. 


An IF DATA-AA NUMERIC results in a ‘no’. 





C-mode 


No automatic support. The item to be tested should be defined as signed. 


INCLUDE Statement/COPY Function 


COBOL-D 
An INCLUDE statement in the procedure division implies a COPY function. 


OS/3 COBOL 
The INCLUDE statement is not supported. The COPY verb must be used. 


C-mode 
The INCLUDE statement is equated to the COPY function. Library names enclosed in quotation marks 
are accepted. COPY libraries are expected to be in UNIVAC OS/3 format. 


MOVE statement 


COBOL-D 
When an unsigned numeric item is moved to a signed numeric item, the sign of the receiver is set to ‘F’. 


OS/3 COBOL 
When an unsigned numeric item is moved to a signed numeric item, the sign of the receiver is set to plus. 


C-mode ® 


When an unsigned numeric item is moved to a signed numeric item, the sign of the receiver is set to ‘F’. 
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a ON statement 


& COBOL-D 


This statement is supported. 


OS/3 COBOL 
This debugging statement is not supported. 


C-mode 
No automatic support. This clause is not supported. 


a READ statement 
See F.5 for disc considerations. 
a STOP statement 
COBOL-D 
When the STOP RUN statement is encountered in a called program, control is returned to the calling 


program. 


OS/3 COBOL 
A STOP RUN statement causes an end-of-job termination sequence. 


C-mode 
When a STOP RUN statement is encountered in a called program, it is treated as an EXIT PROGRAM 
statement. 


2 a USE AFTER STANDARD ERROR PROCEDURE 


COBOL-D 
The word ‘PROCEDURE’ is optional. 


OS/3 COBOL 
The word ‘PROCEDURE’ is required. 


C-mode 
The word ‘PROCEDURE’ is optional. 


2 USE FOR LABEL PROCEDURE 
COBOL-D 


CHECKING BEGINNING 
HSE FOR \ caeariva) ‘ EnGiie 


INPUT . 
ON | curpur f filename 


\ LABELS 





OS/3 COBOL 


FILE 


AFTER BEGINNING 
USE t SerORE \ STANDARD ‘ ENDING \ yet LABEL 





file-name 


PROCEDURE ons wer 


OUTPUT 
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C-mode 





OS/3 COBOL format. 


a WRITE statement 
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No automatic support. The USE statement for label procedures must be rewritten in accordance with ® 


See F.4 for printer considerations, and F.5 for disc considerations. 


a *DEBUG card 


COBOL-D 


*DEBUG packets precede the source deck. 


OS/3 COBOL 


*DEBUG packets follow the source deck. 


C-mode 
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No automatic support. The *DEBUG packets must be moved from in front of the source program and 
placed behind the source program. 


F.3.5. Reserved Words 


C-mode 


The following OS/3 COBOL reserved words may currently exist in COBOL-D source programs as user-defined 


words. Their use as user names will not be allowed by the OS/3 COBOL compiler. 


ASCENDING 
ASCII 


BEFORE 
BLOCK-COUNT 


BLOCK-LENGTH-CHECK 
BUFFER-OFFSET 


CARD-PUNCH 
CARD-READER 
CARD-READER-51 
CARD-READER-66 
CHARACTERS 
COMMA 
COMPUTATIONAL 
COMPUTATIONAL-3 
COMPUTATIONAL-4 
COMP 

COMP-3 

COMP-4 

CORR 
CORRESPONDING 
CURRENCY. 
CYLINDER-INDEX 
CYLINDER-OVERFLOW 


DECIMAL-POINT 
DESCENDING 
DISC 

DISC-8411 
DISC-8414 
DISC-8415 
DISC-8418 
DISC-8416 


DISC-8430 
DISC-8433 
DOWN 


EQUALS 
EXTENDED 


EXTENDED-INSERTION 
EBCDIC 


FILE-LIMIT 
FILE-LIMITS 
FILE-PREPARATION 
INDICES 

INDEX 

INSERT 

JUST 


LINE 


MAP 
MASTER-INDEX 
MEMORY 
MODULE 
MORE-LABELS 


MULTIPLE 


OFF 
OPTIONAL 
OUK-90-250 
OUK-90-300 
OUK-90-400 
OUK-90-600 
OUK-90-700 


PERCENT 
PIC 
POSITION 
PRINTER 
PROGRAM 


RELEASE 
REMAINDER 
RENAMES 


SEARCH 
SEGMENT-LIMIT 





SEPARATE 

SEEK 

SET 

SIGN 

SORT 
SPECIAL-NAMES 


STATUS 
SYNC 
SYNCHRONIZED 
SYSCHAN-1 
SYSCHAN-2 
SYSCHAN-3 
SYSCHAN-4 
SYSCHAN-5 
SYSCHAN-6 
SYSCHAN-7 
SYSCHAN-8 
SYSCHAN-9 
SYSCHAN-10 
SYSCHAN-11 
SYSCHAN-12 
SYSCHAN-13 
SYSCHAN-14 
SYSCHAN-15 r 
SYSCOM 
SYSCONSOLE 
SYSDATE 
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SYSERR SYSERR-17 SYSSWCH-0 UNIVAC-9000 
SYSERR-O SYSERR-18 SYSSWCH-1 UNIVAC-9025 
SYSERR-1 SYSERR-19 SYSSWCH-2 UNIVAC-9030 
SYSERR-2 SYSERR-20 SYSSWCH-3 UNIVAC-9040 
SYSERR-3 SYSERR-21 SYSSWCH-4 UNIVAC-9060 
SYSERR-4 SYSERR-22 SYSSWCH-5 UNIVAC-9070 
SYSERR-5 SYSERR-23 SYSSWCH-6 UNIVAC-920011 
SYSERR-6 SYSERR-24 SYSSWCH-7 UNIVAC-9300 
SYSERR-7 SYSERR-25 SYSTIME UNIVAC-930011 
SYSERR-8 SYSERR-26 UNIVAC-9400 
SYSERR-9 SYSERR-27 TAPE UNIVAC-9480 
SYSERR-10 SYSERR-28 TAPES UNIVAC-9700 
SYSERR-11 SYSERR-29 TAPE-6 UP 
SYSERR-12 SYSERR-30 THROUGH 
SYSERR-13 SYSERR-31 TIME VALUES 

SYSIN VERIFY 
SYSERR-14 SYSIN-96 TRACKS 

SYSIN-128 WORDS 
SYSERR-15 SYSLOG TRAILING WHEN 
SYSERR-16 SYSSWCH 


F.4. PRINTER FILE SUPPORT 


F—11 
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Support is available for printer files in the conversion mode of the compiler; the aim is to be as compatible as 


possible with COBOL-D printer file processing within the limits of hardware differences. 


In the conversion mode, the compiler produces object code to change logical advance-then-print commands into 
physical print-then-advance operations. This causes full-speed operation of the printer subsystem. All printer files 
must be defined and referenced according to COBOL-D rules. COBOL-D contro! characters must be used; 
consequently, neither a BEFORE ADVANCING nor an ADVANCING mnemonic-name is supported in the source 
language. The only acceptable format for a printer WRITE statement is: 


WRITE record-name FROM identifier 


Rules: 


AFTER ADVANCING { 


The printer file must have fixed recording mode. 


literal 


identifier 


\ LINES 


Each logical record defined in the printer file must have the first character position reserved for a control 
character. The control character is used to control printer spacing, but is not actually printed. The legal 


control characters are as follows: 


Control Character Meaning 


blank Print and space 1 line 

10) Print and space 2 lines 

- Print and space 3 lines 

+ Print and space 0 lines 

1 thru 9 Print and skip to channel 
A thru C Print and skip to channel 


3. When the FROM phrase is used, the identifier specified in the FROM phrase must reserve the first 
character position to contain a control character. 
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4. When the AFTER phrase is used, the identifier specified in the AFTER phrase must bea 1-character 
alphanumeric item that contains a control character. 


5. | When a literal is specified in the AFTER phrase, the titeral must be numeric and only the following ® 
control characters are legal: 


Controi Character Meaning 

0 Print and skip to home paper 
1 Print and space 1 line 

2 Print and space 2 lines 

3 Print and space 3 lines 


Restrictions: 


COBOL-D allows an APPLY FORM-OVERFLOW clause in the !-O-CONTROL paragraph of the environment 
division. The APPLY FORM-OVERFLOW clause must be converted to a USE FOR FORM-OVERFLOW procedure 
in the declaratives portion of the procedure division. 


In COBOL-D, when APPLY FORM-OVERFLOW is specified, one line is printed after the overflow punch in the 
carriage control loop is detected. Because of the manner in which the logical write commands are converted into 
physical commands, three fines are printed after overflow is detected. 


To overcome the problem of three lines being printed, the overflow punch must be moved back on the carriage 
control loop by two logical print commands (two lines if single spacing, four lines if double spacing, etc.). If the 
overflow punch crosses or coincides with another carriage control punch, the program cannot produce the proper 
print formats when the program is executed and manual conversion is required. 





No action is taken when form overflow is detected unless specified by a USE FOR FORM-OVERFLOW procedure. 
Testing of the condition-name specified in the APPLY FORM-OVERFLOW clause must be deleted from the existing 
procedure division and must not be used in the USE FOR FORM-OVERFLOW procedure. An alternate method is to 
leave testing of the condition-name as is and to use the USE FOR FORM-OVERFLOW procedure as a place to set 


the condition-name to the true state. 


The IBM model 1403 printer supports carriage-control channels 1 through 12. The UNIVAC Printer Subsystems 
support various carriage control channels, depending on the printer subsystem on line. The COBOL-D carriage 


control references are translated as follows: 
Carriage Control Punch 
0773 0770 0768 










COBOL-D 
Control Character 








(Home paper) 


ONO WNN 








1 

2 
3 
4 
5 
6 
7 

8 
9 
A 
B 
Cc 


(Form overflow) 


HN PWANNOAUTAWNHN 
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e F.5. DISC FILE SUPPORT 


The following paragraphs detail considerations for conversion of COBOL source programs dealing with files assigned 
to direct access devices. 


To facilitate an understanding of the differences between the COBOL compilers, a clause-by-clause, verb-by-verb 
difference description follows, by file organization. 

F.5.1. Sequential Organization 

. SELECT/ASSIGN clause 


The SELECT/ASSIGN clause requires a source program change to meet the format requirements of OS/3 
COBOL. 


s APPLY VERIFY clause (not available in COBOL-D) 


When in C-mode, the compiler automatically sets the verify function without regard to the APPLY clause 
present in the source program. 


s LABEL RECORD definition 
In C-mode, the compiler accepts the LABEL RECORD definition in the linkage section. 
@ 2 REWRITE verb 
In C-mode, the compiler accepts the REWRITE verb when the file is opened for I/O. 
a INVALID KEY phrase 
When C-mode is active, the compiler causes transfer to the USE AFTER ERROR procedure or initiates an ~ 


end-of-job sequence when an INVALID KEY condition is detected and there is no INVALID KEY phrase 
specified. 
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F.5.2. Indexed Organization 


SELECT/ASSIGN clause 


The SELECT statement with its ASSIGN clause requires a source program change to meet the format 
requirements of OS/3 COBOL. 


APPLY VERIFY clause (not available in COBOL-D) 

In C-mode, the compiler automatically sets the verify function without regard to the APPLY clause. 
APPLY MASTER-INDEX clause (not available in COBOL-D) 

In OS/3, this clause serves for documentation only. 

NOTE: 

COBOL-D specifies this option via the job control stream. 

APPLY CYLINDER-OVERFLOW clause (not available in COBOL-D) 


If this clause is not inserted in the source program, the compiler specifies that 20% of each prime data cylinder 
is to be reserved for cylinder overflow area. 


APPLY CYLINDER-INDEX AREA clause (not available in COBOL-D) 


If this clause is not specified in the source program, the compiler does not allocate main storage area to 
accommodate the cylinder index. 


APPLY EXTENDED-INSERTION AREA clause (not available in COBOL-D) 

In OS/3, this clause serves for documentation only. 

RECORD KEY description 

In C-mode, the record key size must not be less than 3 or greater than 249 bytes. 
SYMBOLIC KEY description 

In C-mode, the symbolic key size must not be less than 3 or greater than 249 bytes. 
OPEN verb 


In C-mode, the file is positioned to the logical record specified in the SYMBOLIC KEY item, or if none is 
specified, the file is positioned to the first record. 














8057 Rev. 2 SPERRY UNIVAC Operating System/3 ee 


UP-NUMBER UPDATE LEVEL PAGE 


& F.5.3. Direct Organization 


No conversion mode support is provided for ORGANIZATION IS DIRECT. 


F.5.4. Error Testing in USE AFTER ERROR Procedures 


Replace any calls on DTF interrogation subprograms by tests of SYSER Rs (defined in SPECIAL-NAMES paragraph, 
4.2.3) to determine error status. 
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Appendix G. Job Control Stream 
Requirements 


G.1. INTRODUCTION 


Any COBOL program you write must be compiled before it can be run. The language translator converts the 
instructions in your program into a form (an object module) understandable to the computer. The facilities of 
SPERRY UNIVAC Operating System/3 (OS/3) job control are used to relay information to the operating system 
regarding the requirements for compiling your program. There are two ways to do this: 


a Code and keypunch all the job control statements needed to execute the COBOL compiler. See the OS/3 job 
control user guide, UP-8065 (current version) for details on coding these statements. 


a Use a single job control procedure call statement (jproc call) provided by Sperry Univac. 

A jproc call generates all the job control statements needed to execute the COBOL compiler. When you specify the 
proper options for the keyword parameters, you tailor the generated control stream to meet the individual needs of 
your job. The jproc calls enable you to compile your source program (COBOLB); compile and link-edit the 
generated object module to create a load module (COBOLBL); or compile, link-edit, and immediately execute this 
load module (COBOLBLG). 

G.2. PROCEDURE CALL STATEMENT (COBOLB) 


Function: 


This procedure call statement generates the necessary job control statements to run the COBOL language 
processor. Optionally, it can generate the job control statements that specify the following: 


a input-source library; 


a output-object library; 


copy library; and 


PARAM control statements to define the format of the compiler listing. 
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| Format: @ 
N 
COBOLB 


lun 
//[symbol] | cOBOLsL PRNTR= } ( fF [,vol-ser-no] ) 
COBOLBLG N 


' { (vol-ser-no label) 
(RES) 
AN= < (RES, label) 


(RUN, label) 
(* Jabel) 


(vol-ser-no, label) 
(RES,label) 
,OBJ= ¢ (RUN, label) 
(*,label) 
(RUN,SY$RUN) 


(vol-ser-no,label) 

(RES, label) 
,LIN= ¢ (RUN, label) 

(*, label) 

(RES, S$Y$SRC) 


[,OUT=(p-1,...,p-n)] [,LST= (p-1,...,p-n)] 


_ f vol-ser-no 
[ scr {resrn} | 


(vol-ser-no,label) 

(RES, label) 
,ALTLOD= < (RUN, label) 

(*, label) 

(RES,SY$RUN) 





Label: 


symbol 
Specifies the 1- to 6-character source module name; only needed when the !N parameter is used. 


Operation: 


COBOLB 
This form of the procedure call statement is used to compile a COBOL source program. 


COBOLBL 


This form of the procedure call statement is used to compile a COBOL source program then link-edit the 
object modules. 


COBOLBLG 


This form of the procedure call statement is used to compile a COBOL source program, link-edit the @ 
object modules, and execute the load module.* 





*The COBOLBLG procedure call statement cannot be used when operating with the shared code data management 
feature. Instead, use the COBOLBL procedure call statement and provide a separate EXEC statement to execute the 
load module. 
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Keyword Parameter PRNTR: 


N 
lun 
PANT ES (4 20 ¢ [,vol-ser-no] ) 
N 


Specifies the logical unit number of the printer. N specifies that the device assignment set for the printer 
is to be manually inserted in the control stream, 


Keyword Parameter IN: 


This parameter specifies the input file definition and generates a PARAM IN control statement. The options 
are: 


IN=(vol-ser-no,label) 
Specifies the file identifier (label) and the volume serial number (vol-ser-no) where the source input is 
located. 


IN=(RES) 
Specifies that the source input is located on the SYSRES device in $Y$SRC. 


IN=(RES label) 
This is used if the source input is located on the SYSRES device, but the file identifier (label) is a 
user-own specification, not $Y$SRC, 


IN=(RUN label) 


Specifies that the source input is located on the volume containing the job $Y$RUN file, with the file 
identifier (label) of user-own specification. 


IN=(* label) 
Specifies that the source input is located on a catalog file identified by the file identifier (label). 


If omitted, the source input is in the form of embedded data cards (/$, source deck, /*). 


Keyword Parameter OBJ: 


This parameter specifies the output file definition and generates a PARAM OBJ control statement. The 
options are: 


OBJ=(vol-ser-no, label) 
Specifies the file identifier (label) and the volume serial number (vol-ser-no) where the object module is 
located. 


OBJ=(RES,label) 
Specifies that the object module is located on the SYSRES device, with the file identifier specified by 
the label parameter. 


OBJ=(RUN label) 
Specifies that the object module is located on the volume containing the job $Y$RUN file, with a file 
identifier (label) of user-own specification. 


OBJ=(* label) 
Specifies that the object module is located on a catalog file identified by the file identifier (label). 


if omitted, the object module is located on the job $Y$RUN file. 
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NOTE: 





The OBJ keyword parameter must not be used as the COBOLBL or COBOLBLG. 


Keyword Parameter LIN: 


—_> LIN=(vol-ser-no, label) 


Defines the volume serial number (vol-ser-no) and the file identifier (label) where the copy modules are 
located. The LFD name is COPY$. 


LIN=(RES, label) 


Specifies that the copy modules are located on the job’s SYSRES device, in the file identified by the file 
identifier (label). 


LIN=(RUN label) 


Specifies that the copy modules are located on the job’s $Y$RUN file with the file identifier (label) 
specified by the user. 


LIN=(* label) 
Specifies that the copy modules are located on a catalog file identified by the file identifier (label). 


If omitted, the copy modules are located on the $Y$SRC file. 
Keyword Parameter OUT: 
OUT=(p-1....,p-n) 


Specifies the parameter definitions for the COBOL compiler. This parameter generates a PARAM OUT 
control statement. See 7.1.2. 





Keyword Parameter LST: 


LST (p-1,....p-n) 
Specifies the format of the compiler listing. Generates a PARAM LST control statement. See 7.1.1. 


Keyword Parameter SCR1: 


SCR1= vol-ser-no 
RES 


Specifies the volume serial number of the work file with an identifier of $SCR1. OS/3 basic COBOL 
requires only one work file. 


Keyword Parameter ALTLOD: 


ALTLOD=(vol-ser-no, label) 
| Specifies the location of the compiler to be used, if other than $Y$LOD. 


ALTLOD=(RES, label) 
Specifies that the alternate load library is located on the job’s SYSRES device, in the file identified by 
the file identifier (label). 


ALTLOD=(RUN label) 


Specifies that the alternate load library is located on the job’s $Y$RUN file with the file identifier 
(label) specified by the user. 





ALTLOD=(* label) 
Specifies that the alternate load library is located on a catalog file identified by the file identifier (label). 


If omitted, the compiler is loaded from $Y$RUN. 
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Example 1a: 


The following illustrates the use of the COBOL procedure call statement in its basic form: 







OPERAND 









peer bop pa tp pga tae 





Pee pb PP a 
tole as bear cl ey ee ag ee Dot 
phos Pepe te Pe 

















pba ae tae Pa a Pa a 
Re COT TW CV VCO CTE DR SV eC 








Line Explanation 


1 Indicates that the name of the job is COBOL1A. 


2 Indicates the name of the procedure being called (COBOLB). There are no keyword parameters 
specifying special options for this compilation. 


3 Indicates start of data. 

4-6 Represents the source deck to be compiled. 

7 Indicates end of data. 

As coded, this example can be ii first step in a job to be followed by the link-edit jproc call. It also can be an 
entire job in itself by specifying a /& (end-of-job) statement and a // FIN (terminate card reader operations) 


statement on lines 8 and 9, respectively. The latter case could be used to test-compile a new program or an 
updated version of an existing program. 


G-—5 
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The basic form given in example 1a generates the following control stream: 








OPERAND A 
petite se fndie sl Spe eet ’d gl Hoe a ats tie AY Siig eal th 
Ph PRIN Re ee gp pb oe 
totes | pee ep eg es a pp 





8—10 


11 








1 of gre as er al a Oa 
LED SSCR 
See CE er OG re GR ye Hea  L  a  PT 
POE CS Ce M000 Nes TP CP OU Ya oO en ce CRs a 


priori tirii di 

















poe tp appa tyr aa dy 








pea tari ip teri Pepe tag i fa 





Explanation 


Indicates that the name of the job is COBOL1B. © 





Indicates the default logical unit number and LFD name of the printer. 

Indicates that the work file needed for compiling is, by default, on the SYSRES device, has both a 
file identifier and LFD name of $SCR1, and uses the sequential access technique; that allocation is 
contiguous, with three cylinders allocated for the secondary increment and one cylinder of initial 
allocation. 

Loads the COBOL compiler from $Y$LOD. 

Indicates start of data. 


Represents the source deck to be compiled. 


Indicates end of data. 


As with example 1a, this example can be the first step in a job, or it can be the entire job in itself by specifying 
the /& statement and the // FIN statement on lines 12 and 13, respectively. 
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Example 2a: 


The following illustrates the use of a COBOL procedure call statement that defines most of the keyword 
parameters: 


LABEL AOPERATIONA OPERAND A 
1 10 16 
: OB CEBOL EA 


rROK OHO is rite NL R= 2,1 LN = 


sia ali i pete Dace abn) rity 
Ale tt Li E _ LIN =(DSCil,, COPYLIBL) 5: me 























s|h/ TT esm=(5.0 
6 fey pe ea te es Py 
WV/_ EN ee i per tires trv i tiers trp r its 











Line Explanation 

1 Indicates that the name of the job is COBOL2A. 

2 Indicates the name of the procedure being called (COBOLB). The source module name is PROGNM. The 
logical unit number of the printer is 21, and the input file is on the SYSRES device, with a file identifier 
of USSRC. 

3 Indicates that the output file volume serial number is DSC2, with a file identifier of USOBJ. 

4 Indicates that the copy module volume serial number is DSC1, with a file identifier of COPYLIB1. 

5 The format of the compiler listing is supplied by the LST parameter. 

6 End of job. 


7 Terminates card reader operations. 


By default, the device for the work file is the SYSRES device. 





G~7 
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Example 2b: 


Based on the keyword parameters specified in example 2a, the following control stream is generated: 



































LABEL AOPERATIONA OPERAND A 

1 10 ag 

44 JB cep oie er rou Cle abe es Pees ee OO ake Ca rs a 
2|4/, Dvic_2IIl Le ae ol ar re (eo roel RS 
3|//, IVC RE Eon i es Cd Let ee He COE VC CE ON OP Oe Da EN Es 
4|// S 3 (hob LNCRMT te poaui tae 
5 e 

6 a ice eer ae pokey ed 
q q <2) RE = ars (Ea ae ae 
8 OC mas {LED COPY S. Pes i Ata i ee gt ge ee Le 
9 a Be ee cee ee 











HiReeCe Cia Taree pete TD ey dy 








$c 
al//_exec, Kee 
3I//- para Kw=PR 
4 AL PARAM (RC=f 
RAM) Ler=(] 


iS p 





Ib 


° 
g ral iteaeca | 
INVA EIN tli. | fae ey ft ee pe ep | ey 





Line Explanation 
1 Indicates that the name of the job is COBOL2B. 
2 Indicates that the printer is to be assigned to the logical unit number 21, with an LFD name of 


PRNTR. This was obtained from line 2 in example 2a. 


3 Indicates that the input file is on the device containing the SYSRES volume. This was obtained from 
the IN parameter on line 2 in example 2a. 


4 Indicates that the input file has a file identifier of US$SRC with an LFD name of INCPUT. This was 
obtained from the IN parameter on line 2 in example 2a. 


5 Indicates that the output file volume serial number is DSC2. This was obtained from the OBJ 
parameter on line 3 in example 2a. It is assigned to the device with a logical unit number of 50, which 
was the first available number in the range of 50—54. 


6 Indicates that the output file has a file identifier of USOBJ, with an LFD name of OUTCPUT. This 
was obtained from the OBJ parameter on line 3 in example 2a. 
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Line Explanation 


7 Indicates that the copy library has a volume serial number of DSC1. It is assigned to the device with a 
logical unit number of 51, which was the next available number in the range of 50—54. Logical unit 
number 50 was already assigned to the device with a volume serial number of DSC2 (line 5), so the 
next available logical unit number is used. This was obtained from the LIN parameter on line 4 in 
example 2a. 


8 Indicates that the copy library has a file identifier of COPYLIB1, with an LFD name of COPY$. This 
was obtained from the LIN parameter on line 4 in example 2a. 


9-11 Indicates that the work file needed for compiling is, by default, on the SYSRES device, has both a 
file identifier and LFD name of $SCR1, uses the sequential access technique; that allocation is 
contiguous, with three cylinders allocated for the secondary increment and one cylinder of initial 
allocation. 


12 Loads the OS/3 Basic COBOL compiler from $Y$LOD. 


13—15 PARAM control statements that identify the processing options for the COBOL compiler. These are 
generated in the following manner: 


Line 13 — The module name PROGNM is generated from the label field on line 2 of example 2a. The 
filename INCPUT is generated automatically when the IN parameter is specified. 


Line 14 — The filename OUTCPUT is generated automatically when the OBJ parameter is used. 


Line 15 — The S and O COBOL list options are generated by the LST parameter on line 5 in example 
2a. 


16 End of job. 


17 Terminates card reader operations. 


Example 3a: 


The following example illustrates the use of the COBOLBLG procedure call statement. The input file and the 
format of the output listings are defined. 










OPERAND 


























72 
pea ta tee trea trai i ti 4 i. 
WG, cas see l “] 
aR CIR a se U EEE We Eran L 
Line Explanation 
1 Indicates that the name of the job is MASTER. 
2 Indicates that the name of the source module is MASTER and the name of the procedure being called is 


COBOLBLG; therefore, this example compiles, link-edits, and executes the source program MASTER. 
The input file is on the device with a volume serial number of ABC123 and has a file identifier of 
PAYMAST. 
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Line Explanation 


3 Indicates the format of the compiler listing. 
4 End of job. 


5 Terminates card reader operations. 


Example 3b: 


Based on the keyword parameters specified explicitly and implicitly in example 3a, the following control 
stream is generated: 


LABEL AOPERATIONA OPERAND A 
10 16 


i] 
PAA SS tell re tee dei aie ete a Ae eee 


SO geese fe lS pi i eg 


(ADEID AP RNM Rei foie. 2 Ve tep chin pea 
2 ABCE2S wig oe Thee eS 
i; FD ILNCPUT, 


: ‘alk AS 
7 ff DURES | but 4 A EES oR Rs Coa Et WC Er et CC CC CC Ve rE 
1 3 Po pd ea Pa te 


ol// wifes [/ kD. SBR vite sss a 


q1A/_ EXEC, | 

St ed Ree ER/INCPU 
AZ, PARAM [L877 =(ALC0.,8). 1. 

2/7&..1..tt1...] bet ie t p AS, 


(31,7 _F, baud poe Sh a ge Dp yh ee 






































pe be pe phy 














Line Explanation 
1 Indicates that the name of the job is MASTER. 


2 Indicates that the source program is to be link-edited and executed after it has been compiled. This 
was obtained from COBOLBLG specified on line 2 in example 3a. 


3 Indicates that, by default, the printer is to be assigned to the logical unit number 20, with an LFD 
name of PRNTR. 


4 Indicates that the input file is on the device with the logical unit number of 50 and has a volume 
serial number of ABC123. This was obtained from the IN parameter on line 2 in example 3a. 


5 Indicates that the input file has a file identifier of PAYMAST with an LFD name of INCPUT. This 
was obtained from the IN parameter on line 2 in example 3a. 


6-8 Indicates that the work file needed for compiling is on the SYSRES device, has both a file identifier 
and LFD name of $SCR1, uses sequential access technique; that allocation is contiguous with three 
cylinders allocated for the secondary increment and one cylinder of initial allocation. 


G—10 
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8 Line Explanation 


9 Loads the OS/3 Basic COBOL compiler from $Y$LOD. 


10—11 PARAM control statements that identify the processing options for the COBOL compiler, which are 
generated as follows: 


Line 10 — the module name MASTER is generated from the label field on line 2 of example 3a. The 
filename INCPUT is generated automatically when the IN parameter is specified. 


Line 11 — The A, C, O, and S COBOL list options are generated by the LST parameter on line 3 in 


example 3a. 
12 End of job. 
13 Terminates card reader operations. 


Implicit in the // OPTION LINK,GO statement on line 2 of example 3b is the creation of a load module 
named LNKLOD by the linkage editor and the execution of that load module. This is performed after the 
source program has been compiled. Any output is temporarily stored on the SYSRUN device. 


Example 3c: 


If linkage editor input or control stream input to the source program is needed for job MASTER as described 
in example 3a, the following job stream could be used: 
































OPERAND 
72 
jee Ns ee ei ee el eg 
LG. TN=.(ABC.123.1PAVMAST) .9, 
[Time 
Fe ee ee sD 
Cee eats 
gle iad tbl PIU fog a to pa | 
i reas: ree ren TSE ene Co Cr ue 
i eee fg 
Estate 
tineees 
I( ONnh ot istirielakn bop 
2 cl a 
131/i%S ee a rt 
(41/ & potriirr fpr ritiii 
I \ iis aca 
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Line Explanation 





1-3 Same as described in example 3a. 

4-8 Embedded data set containing input to the linkage editor. 

9-13 Embedded data set containing control stream input to the source program. 

14 End of job. 

15 Terminates card reader operations. 

The generated control stream would be the same as in example 3b, except that the two embedded data sets 
would be inserted between lines 11 and 12. Note that if there is no linkage editor input, but control stream 
input to the program is to be included, a dummy data set (/$ followed immediately by /*) must be inserted 
into the job stream where the linkage editor input data set would have been included. 


G.3. COMPILER STATUS INDICATORS 


The compiler sets the following status indicators in the user program switch indicator (UPS!) byte. These indicators 
may be used in conjunction with the // SKIP job control card: 


a Switch-O (X‘80’) is set to 1 if the compiler does not create a complete object module. This condition might be 
caused by an “insufficient memory available’’ diagnostic or a compiler abort. 


a Switch-1 (X‘40’) is set to 1 if the compiler issues any diagnostic messages with severity code S or U. 





a Switch-2 (X‘20’) is set to 1 if the compiler issues any diagnostic messages with the severity code C. 


These bit settings are logically superimposed onto the UPSI byte; therefore, any of the eight UPSI bits that were set 
prior to the compilation will still be set after the compilation. 


G.4. DATA DEFINITION (DD) JOB CONTROL STATEMENT KEYWORD PARAMETERS 


The DD job control statement is used to change data management keywords at execution time. Instead of changing 
the COBOL source code, the user can override data management keyword specifications when the COBOL object 
program is executing. The DD statement keyword parameters that may be specified for a COBOL program are as 





follows: 

LACE=n 

SIZE=n 

UOS=n 

ACCESS= { EXC 
EXCR 
SRDO 
SRD 
SUPD 
SADD 

FILABL= {NO 
{sro} 
STD 

TPMARK=NO 

VMNT=ONE 
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@ When the user specifies these keyword parameters, extreme care must be used so that the effect of changing one 
parameter does not cause a conflict. To avoid conflicts, the user should carefully examine the file usage specified in 
COBOL source programs and the default parameters set by the compiler-generated data management specifications. 


The DD statement applies to basic data management users and consolidated data management users. For keyword 
parameter information, see the basic data management user guide, UP-8068 (current version) or the consolidated 
data management macroinstructions user guide, UP-8826 (current version). A complete description of the DD job 
control statement is explained in the job control user guide, UP-8065 (current version). 
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ALTER statement 
description 6.6.2.1 6—10 ASCII files, processing 12.1 12—1 
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ASCII tape format 
ASSIGN clause, FILE-CONTROL paragraph 


AUTHOR paragraph 


B 
BLANK WHEN ZERO clause 
BLOCK CONTAINS clause 
block sizes 
control field sizes 
description 
Block sizes 
C 


CALL statement 
Calling/called programs 
Character set 
Characters 
set 
used for editing 
used for punctuation 
used in relational expressions 
used for words 
Checkpointing 
description 
restriction 
Class condition 
CLOSE statement 
Coding form, description 
Comment, coding form 
Communications region 
ACCEPT statement 
DISPLAY statement 
COMP option, USAGE clause 
Compiler, description 
Compiler diagnostics 


diagnostic messages 
system console messages 


Reference 


Fig. 12—1 
43.1 
31 


5.3.9 


Table 5—3 
Table 5—2 
5.2.1.1 


Table 5—3 


6.6.8.1 

6.8 
Appendix A 
2.1 
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Compiler-directing statement 


Compiler listings 

data division storage map and 
cross-reference 

diagnostic error 

object code 

procedure division storage map 
and cross-reference 

source code 


Compiler status indicators 
Condition name 
Conditional statement 
Conditional variable 
Condition-name clause 
Condition-name condition 
Configuration section 
Connectives 
Console 

ACCEPT statement 

DISPLAY statement 
Continuation, coding form 
Conversion mode 

disc files 

operation 

printer files 

syntax 
COPY statement 

description 


library use 


CURRENCY SIGN clause, SPECIAL-NAMES 
paragraph 


Current date ACCEPT 


Data definition (DD) 
job control statement 


Data description entry 
condition-name clause 
description 


B 


Reference 


6.5.3 


E.2 
E.5 
E.4 


E.3 
E.1 


G3 
2.2 


2.2 


5.3.12 


42 
2.2 
9.1.2 
9.2.1 
25 
FS 
F.2 


FA 
F3 


6.6.7.1 
73.1 


G4 
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Index 2 
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Data division 
conversion mode 
data description 
description 
FILE SECTION 
storage map and cross-reference 
listing 
WORKING-STORAGE 


Data name 
DATA RECORDS clause 
DATA-COMPILED paragraph 
DATE-WRITTEN paragraph 
Debugging 

description 


packet 


DECIMAL-POINT clause, SPECIAL-NAMES 
paragraph 


Declaratives section description 
Diagnostic messages 
Direct access 
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processing 
Disc processing 
DISPLAY option, USAGE clause 
DISPLAY statement 
communications region 
console 
format 
log file 
printer listing 
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DIVIDE statement 
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Reference 


F.3.3 
5.3 
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9.2.2 
9.2.6 
9.2.4 
9.2.3 
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2.1.5 


25 
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ENTER statement 
CALL statement 
description 
ENTRY statement 
ENTRY statement 
Environment division 
conversion mode 
description 
EXAMINE statement 
EXHIBIT statement 
EXIT statement 
Extended access 


External name 


External reference 


FD entry, description 


Figurative constant 
description 
MOVE statement 


FILE-CONTROL paragraph, description 


FILE-LIMIT clause, FILE-CONTROL 
paragraph 


File-name 

FILE SECTION 
description 
FD entries 


FILLER clause 


Fixed portion 


GIVING clause 
DIVIDE statement 
MULTIPLY statement 
SUBTRACT statement 


GO TO statement 
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Parameters, PARAM statement 
copy library input 
listing 
object module 
output 
source library input 


PERFORM statement 
description 
segmentation restrictions 


PICTURE 
clause 
symbols 


Printer listing DISPLAY 


Priority number 
ALTER statement 
description 
PERFORM statement 


Procedure branching verbs 
Procedure call statement 
Procedure division 
conversion mode 
description 
storage map and cross-reference 
listing 
Procedure-name 


PROCESSING MODE clause, FILE-CONTROL 
paragraph 


PROGRAN-ID paragraph 
Program segments 
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